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SERTES IIIT 8G846/80387/8088 MACRG ASSEMBLER V1.0 ASSEMBLY OF MODULE OLL 
OBJECT MOOULE PLACED IN SFTsOLL.C8J 
INVOCATION LINE CONTRCLS: DEBUG 


LOC OadJ LINE SCURCE 
oe STITLE C’CLL = DATA LINK LAYER 04/20/827%) 
2 NAME DLL 
4 ,t? Trtel Corporation Proprietary Information. This 
5 es listine is supplied under the terms of a license 
é ; agreement with Intel Corporation and may not be copied 
7 ; nor disclesed except in accordance with the terms of 
§ ; the acreement.. 
3 
1C +1 SNOGEN 
4 SINCLUODE C:F1:PORTS.INC) 
= 12 
1 4 Nee ; CONTOL PORTS 
=1 14 
0000 =1 15 SET_TXSRT EGU OOOH 
b0C1 4 16 RESET_TXSRT ecu OO1H 
N02 =1 17 SETLRXAV1 ECU OC2H 
O0C3 = 4 18 SETWKKAVZ 2Qu QOOfH- 
Q0C4 =1 19 SETLRXAV3 EGU O04H. 
0005 =] rae RESET_LERRCR ecu OO5H 
OOCé =4 21 RESET_CHANNEL_COUNTER EQU OO6H 
QOAQD =4 Ze S2T_SyYS ECU O40H 
OOEC =4 23 SET. LOC ECU OBOH 
= 4 24 
=4 25 
=1 24 ; PIT VALUES 
1 a? 
00C3 1 28 PITCC Eau O03H 7PIT COMMAND PORT 
N062 1 29 PiT_3CK ECU Q002H 7PIT BACKOFF TIMER 
0oc4 1 30 PIT_RTC 2Cu OD1H ,PIT REAL-TIME CLCCK PORT 
COLO 4 x | CIT_ALC 2 OCOH 7PIT ALARM=CLOCK PORT 
1 oe 
0000 1 33 LATCH _ RTC e€l OOH ZLATCH REAL-TIME CLOCK VALUE 
0040 1 34 LATCH _ALC ECU 40H sLATCH ALARM=CLOCK VALUE . 
4 so 
=1 36 
= af , DMA VALUES 
=] 38 
O0C8 = 39 DMACHD EQU OC 8H 7COMA COMMAND AND STATUS PCRT 
OOCS =4 £446 OMAREC ECE OC9H OMA REQUEST PORT 
OQCA . =4 44 ~ OMAMSKB Eu OC AH 7OMA MASK BIT PORT 
OO0CB . = 42 DMAMOOE EQU OC8H 7DMA MODE PORT 
OOCC =4 43 DMABPTR ECU QCCH ,7,CMA BYTE POINTER PORT 
‘O0C5 =4 44 DMACLR EQU OCDH 7? CTMP & CLEAR???) 
OOCF = 45 DMAMASK ECU OCFH 7OMA MASK PORT 
46 
OOCO 47 CHOADOR EGU OCGH 7CHANNEL © ADDRESS PORT 
00C 1 423 CHOWC ecu OC1H 7CHANNEL CG WORD COUNT PORT 
O0C2 49 CHIADSR egu OC2H 7CHANNEL 1 ADDRESS PORT 
Q0c3 50 CHITWC PEL OC3H ,CHANNEL 1 WORD COUNT PORT 


8086/8087/8088 MACRO ASSEMBLER DLL - DATA LINK LAYER C4/20/82 ~ 09/01/80 PAGE 2 


Loc OBJ LINE SCURCE 
00C4 = 51 CH2ADOR ECU OC4H ;CHANNEL 2 ADDRESS PORT 
o0cs = 52 CH2WC ECU OC5SH ;CHANNEL 2 WORD COUNT PORT 
00Cé 1 53 CH3ADOR QU ° OCSH CHANNEL 3 ADDRESS PORT 
00C7 1 54 CH3WC =CU OC7H 7CHANNEL 3 WORD COUNT PORT 
=1 55 
4 56 
=4 57 ; DIC VALUES 
=4- iS. 
O0E3 =4 55 PIOCMO ECU OE3H ;PIO COMMAND PORT (CHECK: F32) 
O0EC 1 £6 PIOA ECU O£OH ;PIO PORT A 
0021 = 64 PI08 2¢U O21H ;PIO PORT B 
ODE2 =4 é2 PTOC eC O£2H ;PIO PORT C 
= as | 
OOF3 =1 é4 PIOCLR ECU 411100118 SCLEAR SERDES 
OOZA = 65 PIOSEN ECL 001010108 7SERIAL ENABLE 
0022 =1  . 66 PIOSENP 0) 001000108 ;PROMISCUCUS SERIAL ENABLE 
OOEC =4 67 PIOREAD CL 111900008 ;READ ADORESS COMMAND 
=4 é8 
=4 é9 
1 70 ; PIC VALUES 
1 a 
OOF =4 72 PICCME ECU OFOH ;PIC COMMAND PORT 
OOFO = 73 PICDATA EGU OFOH 7PIC DATA PORT 
OOF1 1 7h PICMASK CU OF1H ;PIC MASK PORT 
0020 = 76 FOr PIC EQU 20H ;PIC END-OF-INTERRUPT COMMAND 
0060 =4 77 SO. PTE ECU 60H ;PIC SELECTIVE EOI COMMAND 
OOcC = 73 PCLL PIC ZOU OCH 7POLL PIC COMMAND 
000A = 79 READ_IRR QU OAH ;PIC READ-IRR COMMAND 
0046 =4 a0 RTC_DONE ECU 40H ZMASK FOR REAL-TIME CLOCK INTERRUPT 
0066 =4 | af RTC. INT. SEOL ECU 60H+6 ;COMMAND TO EQI RTC INTERRUPT 
0086 =4 a2 RTC_INT RL B0H+6 7POLL COMMAND RETURN IF INTERRUPT 
=4 83 
00c1 = 24 CH1_DONE ECL 01H 7RX CHANNEL 1 DONE | 
0002 =4 35 CH2_90NE at 02H 7RX CHANNEL 2 DONE ae | 
0004 = 86 CH3_DONE 2CL 04H 3RX CHANNEL 3 DONE 
=1 87 | NG 
= 39 ; MISC. CZFINITIONS 
= 4 $0 
00C1 =4 $1 MCELAG EQU 01H ;MULTICAST BIT 
0067 =4 Ss JUNK_@YTES EQU 7 ;NUMBER OF RECIEVE JUNK BYTES 
$3 SINCLUDE (:F1:KA0S.0CA) | 
=4 54 EXTRN  COSTART:NEAR/CQSCHEDULE:NEAR»CQHALTANDCATCHFIRE:NEAR 
=4 95 EXTRN  COCREATEPROCESS:NEAR/CQCREATELIST:NEAR 
= 96 EXTRN COCREATESEMAPHORE : NEAR, CQSIGNAL : NEAR/CQWAITSEN:NEAR 
=4 $7 EXTRN  COCWAIT!NEAR 
=4 $4 EXTRN  CCCREATEMAILBOX:NEAR/CQSEND :NEAR,/CQRECELVE:NEAR/CCCRECEIVE:NEAR 
= 99 EXTRN  CCISIGNAL:NEAR,COICWAIT :NEAR/CQISEND:NEAR,/CQICRECEIVE!NEAR 
=1 1CC =XTRN  CCREADCLOCK:NZAR 
=1 101 EXTRN  CCCREATSALARM:NEAR,CQSETALARM:NEAR 
=1 102 ZXTRN  CCCHECKALARM:NZAR,CQCLEARALARM:NEAR 
103 SNOLIST INCLUCE (:£1:LOCGEN-MAC) 
207 
263 
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Loc OBJ LINE  SCURCE 
204 EXTRN RANDOM:NEAR 7A KAGS PRIMITIVE FOR BACKOFF NUMBER 


206 SeJECT TITLE “7 OLL- - DATA GASES”) 


] 
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LOC O3J LINE SCURCE 
2G 7 QOGROUP GROUP DATA-STACKS,BUFFERS 
206 
Ba a 209 DATA SEGMENT BYTE PUBLIC “CDATA’ 
210 ; 
211 ; CCNSTANTS 
212 
0040 213 SLOT_TIME EQU 64 Number of 800nS clock ticks per slot time. 
OO2C 214 MIN_PACKET_LEN ECL 60 760 bytes cf header and data. 
OSEA 215 MAX_PACKET_LEN E@U 14+1500 714 bytes header + 1500 bytes data. 
O5FA 216 SEG_3UF_LEN =CU 6+MAX_PACKET_LEN+JUNK_BYTES+3 70S header 
217 7 t+ packet length + garbage + safety factor. 
0001 2138 NUM_TX_3UF EGU 1 syNumber of transmit buffers. 
O0C4 219 NUM_RX_ BUF EGL 4 Number of receive buffers. 
QOCF 220 ATTEMPT_LIMIT EQU 15 7Maximum number of transmit retries on collision 
O3FF 221 BACKOF=_LIMIT ECU SFFH 7Maximum 10 bits (1023) for random number 
222 vin backoff alogorithm. 
225 
224 
Cio , PACKET BUFFER FORMAT 
225 
en cer SEGMNT STRUC 
0000 228g KAOQSMSGHOR DD 2 7Space for the KACS header when linked to a 
229 vmailbox, 3. 
250 
0004 251 Seo LeNstH, W ? The number of bytes from OL_ODEST to the end 
232 vot the data in the DL_OATA field. 
23% 
C006 234 DL_DEST OW 3 OUP (7) +The data link destination eddress field. 
255 
COQQC 236 DL SOURCE 3W 3 DUP (€?) +sThe data link source address field. 
237 
cate 232 OL_TYPE DW ? The data link type field. 
. 239 
GO14 240 DL_OATA D8 ? The data link data fields this must be at 
244 rleast 46 bytes and: not more than 1500 bytes. 
242 
2 243 SEGMNT ENDS 
244 
0006 245 VAL_DL_DEST ECU Q6H 7An alternate representation of DL_DEST because 
246 7ASM86 doesn’t allow structure members in some 
247 . 7sorts of expressions where is does allow 
248 ,EQU~type constants. 
249 
250 
251 
Pit ; KAOS OBJECTS 
255 
254 ; This section uses a version of "SYSGEN.MAC" modified 
235 r to not declare things external. This was done so that we could put 
256 ? the entire data link in one module, rather than splitting the 
25f ; definition of the KAOS objects out into a separate module. 
258 | 
255 
Zou PUBLIC OLLTxFreeMbx 
267 ZCZJECTLIST CKAOSOBJECTS) 
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LOC CaéaJ LINE SCURCE 
ptosis 2 246 
267 AMAITLBOX COLLTxFreeMbx) +The Transmit Free buffer pool, 
ae ae R 275 vthis is used to store buffers which are 
276 vavailable to the user. 
27 
278 AMAILBCK COLL_M3X1) Packets are normally sent by CQDLLSTRANSMIT 
Sore R ace vtithout involving the operating operating 
287 rsystem. If there is already a packet being 
286 sent, however, the new packet will be stored 
285 vyhere. The transmit interrupt service routines 
290 7TXISR-r does a CKeceive at this mailbox 
2514 rand reintializes the transmit hardware 
292 vif anything is here. 
253 
254 *MAILECX CCOLL_MBX2) *CQDLLSTRANSMIT does local locphack on 
Ss R SG? ,self-self addressed packets by calling 
303 ,LOOP_PACKET, which copys the packet to a 
304 ryreceive bhuffer and forwards it to the normal 
3C5 rreceived packet processing. 
306 ,if there is no free receive buffer, 
3C? 7LOOP_PACKET increments BUF_LOOP end blocks 
3Cé vat this mailbox waiting for a buffer. 
3CS vNote that a free buffer is one which is 
219 zneither in the hands of @ user, nor 
es vinitialized on a receive DMA channel. 
Sh2 7Since there are three receive DMA channels, 
513 vand only four receive buffers at this time, 
314 vthere is only one buffer available for 
315 loopback 
376 | 
S417 MSEMAPHORE CDOLL_SEM1,/C) ;-This semaphore is signalled ky the 
a R 326 vreceive interrupt service routine to 
S71 vstart up the receive DLLRXF process, 
S25 
323 APROCESS (Q,DLLRXF,-84 ) +The Receive Forward process. 
amon Sf R 344 
345 AZNOLEIST 
as 350 
351 be dec. 
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0046 


CO4A 


GO4C 
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C050 


C058 


tta4 


2227 


2222 


2222 
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EEN SCURCE 

552 ; Z3EGINNING OF THE MAIN DATA BASE 

354 De_START ECU $ 7All memory between DB_START and CB LEND ~~~. 
jos vwill be initialized to zero by CCOLLSSTART. a. 
336 

33.0 

35¢ 

359 7 NETWORK MANAGEMENT COUNTERS AND OTHER OS8JECTS 

3é0 

361 

362 TCTAL_SENT Dn 2 DUP (€?) <sThe total number of packets which have 

363 vbeen sent by this node. This two~word 

344 rcounter wraps around to zero after reaching 
3é5 zits maximum value. At the mé@ximum 

366 svtransmission rate, this will take weeks 

SE] ,to wrap around. 

368 . 

35S PRIMARY_CCLL DW ? y7The number of packets which have encountered 
370 vat least one collision. It sticks at OFFFFH. 
371 

372 SECONDARY_COLL OW ? 7Then number of times there has been a second 
373 ror higher collision. If a pécket has six 

374 7collisions, PRIMARY_COLL will be incremented 

> : roy onery and SECONDARY_COLL will he incremented 


roy five. It sticks at OFFFFH. 


BACESCED- COLE OW ? 7The number of packets which have been ahorted 
vbecuase they had mode then the mex 
ynumber of collisions. It sticks at GFFFFH. 


TX_PKT_TOC_LONG DW 4 7Tne number of times the transmit hardware 
vwatchdog time has aborted a packet. 
7TtThis should never occur unless there is 
78 serioussoftware or controller hardware 
+ failure. It sticks at UFFFFH. 
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TGTAL_RECEZSVEC OW 2 CUP (2?) -The tetal number of error-free packets 


co 


390 swhich were addressed to either this node’s 
351 vhostID or some multicast address it has 
S72 | renabled, and for which some user had 

393 zcdone a CQOLLSCONNECT for its type code. 
354 

395 CRCERRS DW 4 zThe number of received packets discarded 
356 ,hecause they had a CRC error. It sticks 
357 vat QFFFFH., 

396 ; 

399 FRMERRS DW ? 7The number of received packets discarded 
4CC ;hecause they were longer than MAX_PACKET_LEN. 
401 vit sticks at OFFFFH. 
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Lec. Gay LINE SCURCE 
COSA 27777 403 RSCERRS aa ? -The number of times the receive interrupt 
44 vroutine has tried to reminitialize a channel 
405 . rvhut could not get a buffer. This gives 
4C6é rysome idea of how many packets have heen 
407 vdropped becuase there was no buffer to 
403 ryput them in. It sticks at OFFFFH. 
4C9 
co5c ¢3 240 acsT Lp DW 3 OUP (7) = sThis node’s HostID 
999°9 
) F 
OGSC 411 CGcULL HOST 29 ecu HOSTID 
412 PU3LITC CQ_DLL_HOSTID 
413 
0062 (C2 414 LCADING DW 2 DUP (2?) sThe Ether Loading statistic. It is a 
9999 
) 


rbinary fraction in the range 0 <= LOADING < 1 
vrepresenting the fraction of the time 

r7the Ethernet cable is busy. It is a moving 
rvaverage which is updated each time the 
vroutine DLLETHERLOAD is called. Since 

7each sample is a busy or not busy values 

vit is necessary to averace over many samples 
to get a meaningful value. The time constant 
,of this statistic is therefore quite longs 
zon the rough order of a minute. Only the 
vhigh order word of this double precision 
ynumber is available to the users the lower 
rword is needed to keep roundtoff error under 
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42é r,control. 
429 
430 ) 
434 ; TRANSMIT CATA BASE (awrorh Lit 
432 
CO66 7777 455 CURRENT_PACKET OW ? rThe offset of the packet currently being sent. 
424 
CCé8& 7? 225 MITBUSY D8 ? sThis is set to a nonzero value if a 
436 v7transmission is pending and will be 
437 rvreset by the TXISR interrupt service routings. 
438 
0069 ?? 439 BACKOFF_WAIT D3 ? This. is set to a nonzero value if waiting 
440 for & backoff timer interrupt. This is. 
444 rzneeded becuase the Rae has j 
442 ycan Sometimes cause alse interrupt re 
443 -If this flag is not set, 3A Ea 
444 rvignore level 7 interrupts 
445 
CO6A 7? 446 BACKOFF_CCUNT 93 ? The number of collisions this packet has 
447 vencountereds. 
448 . . 
CO6B 7777 449 BACKOFF_MASK OW ? v7This is a mask usad by the backoff alogrithm 
45 7to select the bottom N bits cf the value 
451 : vreturned by RANDOM, where N is the minimum 
452 — 7oOf BACKOFF_COUNT and 10. 
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Loc O3J Lie SCURCE 
454 , RECEIVE DATA BASE 
455 
455 ; The receive side is designed to minimize the probebility 
457 , of dropping packets. The receive interrupt service routines 
458 7 reinitialize the OMA channels as quickly as possible 
459 ; so thet a cuick burst of incoming packets up to the size cf the 
460 , receive buffer pool can be received without losing packets. 
4€1 ; Since SERCES DMA lock: A ess to this me 
462 , j i 
463 7 
464 ; Also, the amount Of processine done in the interrupt routine 
465 ; is minimized to just saving information data and resetting the hardware 
466 ; sc the DMA channels can be reinitialized as fast as possible,y the 
467 ; rest cf the per packet processing, such as address Tilterings type 
468 ; code processing and anything which accesses the pecket buffer, 
469 ; is done in the background by the OLLRXF process. This optimizes: 
47C ; for minimun packet loss at the cost of additional total processing 
471 ; time. 
472 , 
473 ; NCTE: This stratecy made a lect of sense at design timers when packets 
474 ; buffers were 560 bytes longs giving us 14 receive buffers. Now that 
475 ; the Ethernet maximum packet size has been increased to 1500 data 
476€ ; bytes, we only have fof ‘room four receive buffers; optimizing for 
ae ; Test reinitialization doesn’t make much Sense any more. 
473 ; There is also a possible glitch in the original scheme: there 
475 ? is an unconfirmed report that accesses to the CMA controllsr can 
460 ? also lock up the processor, so the careful avoidance of the OMA 
421 ; bus with the BCBs may be for naught. Riping all this out and 
482 ; integrating DLLRFX with the receive interrupt routines is a reasonable 
433 ; thing to do under these new conditions. 
484 
485 
4&6 
D00D 727? 487 NEXT_CH DW i 7The address of the receive interrupt service 
4&& vroutine for the next channel to be serviced. 
489 r7All three channels vector through the same 
490 ,state save and restore routine, RXISR, 
454 ywhich vectors through NEXT_CH to the 
492 -correct routine 
493 
4594 
peas 495 2 Oe ed ai STRUC This is the structure of the Buffer 
496 Control Blocks (8C8s)., 
457 
CQO00 498 LINK DW ? vLink to the next element in whatever 
499 . vlist this BCB is linked into. 
560 
Co02 504 WC DW 2 7The receive interrupt routines place the 
ate vword count read from the OMA controller 
505 vdirectly in this word, without processing it. 
504 7If this 8CB were put into a KAOS mailbox, 
55 vit would contain part of the KAOS link. 
506 7i don’t think the current version ever sends 
aCe 7& BCB to a mailbox, however. 
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LOC OsBJ LINE SCURCE 
CO04 | 509 BUF DW ? ;TtThe offset of the buffer into the static. 
510 7This number is needed because the DMA 
511 . rcontroller thinks that the first byte 
512 7of static memory is address zero. 
5S 
lag 314 BCB_TYPE ENCS 
00C6é 515 3CB_TYPE_LEN EGU 6 7The length in bytes of this structure 
516 for initializing the data base in CQOLLSSTART. 
517 
CO6F (24 518 3C3 D8 NUM _RX_BUF*BC8_TYPE_LEN DUP (27) 7Space for the BCBs. 
29 
) 
513 
520 
521 | 
CO8? 2277 522 8C3_HEAD DW ? 7The head pointer for a stack containing 
525 rvthe free (BC8s). 
524 
Ca8? ee eee Se) FREE HEAD DW ? 7The head pointer for a stack containing 
526 72C8s which point to free receive buffers. 
I27 
COSs 2772 P28 RCVD_HEAD DW ? 7The head and tail pointers to a FIFO queue of 
CO8D 7277? 52 RCVD_TAIL DW ? 78C8s which point to receive buffers containing 


vpackets which have just been received. This 
7queue is filled by the receive interrupt 
7service routines, and emptied by the 
vreceive forward process. 

IMPORTANT: RCVD_TAIL must be initialized 
sto point to RCVD_LHEAD. 


COSF 722? RX1_8UF DW ? 7The addresses of the buffers currently 
CO91 272? RX2_3UF DW ? ' ginitialized on the receive DMA channels. 
C0 9S..°2-7°72 RX3_3U5F DW ? *WARNING: These variables MUST remain in 


7sequence because some set-up routines 
vindex into this as an array. 


Our GaP OVaN aw UN |? Oro 
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C095 a BUF_LOOP DB ? 7The number of loopback buffers needed by the 
,vtransmit side. 
0095 ?? BUF_LFIRST D2 ? 7The number of the first receive channel which 
547 rvneeds to be reinitialized with a buffer. 
548 
CQ97 27 549 BUF_COUNT D3 a 7The number of receive channels which need 
550 sneed to be reinitialized with a kuffer. 
551 
552 
53 r MULTICAST FD TABLE 
554 . 
CO98 (1 Dao ALLMC DS 1 DUP C22 rTrue if 211 multicast IDs are to be accepted. 
29 
) 
CC99 (1 xoOe MCTOL DW 1 CUP ¢€?) 7The number of multicast IDs in the table. 
999% ; 
) 


0093 (24 .. HD MCIO DW 8x3 DUP (7?) 7The table of multicast I0s to accept. 
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LOC O3J Line SCURCE 
2229 
) 
558 
55:9 
yen e: , DATA LINK TYPE DEMUX TABLE 
561 | | 
coca ¢1 542 TYPEL OW 1 DUP ¢€?) The number of types in the table. 
9727 
) 
cocD ¢é 563 TYPET DW 8 CUP (72) 7The table of types. 
9999 : 
) 
CODD ¢8 564 TYPEM Dh 6 OUP (7?) 7The mailboxes to which to send péckets of the 
9999 
) 
565 7corresponding type. 
566€ 
COED (C1 567 RCV_AANG D8 1 OUP (2?) 7 NUMBER OF TIMES TX DETECTS RCVER HUNG 
: 99 
) 
566 
569 , END OF THE INITIALIZED DATA BASE 
570 
O0se 571 D2 ENC ECU $ zEnd plus one of the initialized data base, 
Sie r7eall memory between DB_START and kere are 
5135 ee are to ETO bry —CGEELSS TAR 
ee aie ae 
575 
ie ce 576 DATA ENDS 
574 
573 : 
ar , DEFINITION OF BUFFER SEGMENT 
540 : 
saa nets 581 BUFFERS SEGMENT CCMMON “BUFFERS’ 
Ccoao ¢1 De 2 BUFFER_ START OW 1 DUP €?) 7Definition of the buffer segment. 
9999 
) | 
---- 583 SUPPERS ENTS 
5&4 
585 
5&6 r BEGINNING OF CODE SEGMENT 
537 
588 CGROUP GROUP COCE 
oe 589 CODE SEGMENT BYTE PUBLIC “’CODE’ 
596 ASSUME OS:O0GROUP,CS:CGROUP 
591 
COS: === R a9 2 DGRP DW DGROUP 7OFFSET OF DGROUP FOR INITIALIZING ODS 
593 


594 SEJECT TITLE C’7OLL - NETWORK MANAGEMENT RCUTINES%) 
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8036/8087/80E8 MACRO ASSEMBLER Olek. 
Loc BJ LINE SCURCE 
395 rare The Network Management routines are driven off a table with 
556 ; the following structure: 
557 ; 
598 , Byte C: 
599 ? Bits O-2: The length in bytes of the objact 
6CO ? Bit 3: Set if the object is clearable 
601 7 Bit 4:3 Set if the object is setable. 
6C2 ; Bytes 172: The base address in the current data segment of the 
6C3 , first or only instance of the object. 
604 7 
605 ; In addition, the following constant defines the limits 
6Cé 7 of the data structure: 
6C-¢ ; 4 ; 
508 ; LAST_C&2JECT: The number of the last object in the table. 
609 
619 
ft 611 CTL RECORE CLR:1=0-SETI1=0-LEN: 3=2 
= 612 OBJ STRUC 
ccOo0 613 CTL_FLO OB 7 
C001 514 ECE DW Ks 
salen acl 615 OBJ ENDS 
516 
COTA 14 R 617 TABLE Gz J <CTL<1774>-0FFSET OGROUP:TOTAL_SENT> 
COQ18 44600 
CC10 12 R 614 O8J <CTL<1>,/OFFSET DGROUP:sPRIMARY_COLL> ~ 
COTE 4A00 
0020 12 R 519 OBJ <CTL<1>,/OFFSET OGROUP:SECONDARY_COLL> 
CO21 4C06 
CG23 12 R 620 O8J <CTL<1>,OFFSET OGROUP: EXCEEDED _COLL> 
CO24 4£00 
CQ26 12 R 521 OBJ <CTL<1>-/OFFSET OGROUP:TX_PKT_TOO_LONG> 
CO27 5000 
0029 14 R 622 O8J <CTL<17,74>-/0FFSET DGROUP:TOTAL_RECEIVED> . 
CO2ZA 5200 
CO2Cc 12 R §23 Nad <CTL<1>-/0FFSET DGROUP:CRCERRS> 
Q02D 5600 
CO2F 142 R 624 O3J <CTL<1>-/OFFSET DGROUP:FRMERRS> 
CO30 5806 
C032 12 R 625 O8J <CTL<1>-OFFSET DGROUP:RSCERRS> 
CQ35 5A00 . 
0035 06 R 626 O28 <CTL<,-7-6>-0FFSET OGROUP:HCSTID> 
GC36 5C0C 
0038 Ge R 527 OBJ <CTL<+-2>,-/0FFSET OGROUP:LCADING+2> 
CO39 6400 
626 
OOCA 629 LAS tT CS JECT EQU 10 
630 
631 
632 
633 
534 pre DLLSREAD CQBYECT, MODIFIER, VALUESP) - READ NETWORK MANAGEMENT OBJECT. 
635 ; | 
625 ; PARAMETERS: 
637 7 OBJECT = THE OBJECT NUMBER CWORD). 
638 ; MOCIFIER = WHICH COPY THE OF THE OS8JECT CWORD, INGCRED). 
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LOC 


COSa 
C038 
Cusé 
COSF 
00490 
C042 


CO43 
0043 
CO46 
C049 
CO43 
c04C 
GC50 
0052 
Q0553 
CC54 
0056 


O3J 


ES1E00 
ioe 

A4 
&ac3 
C3 


£81600 
F6C210 
7407 

A4 
CO44FFOC 
Bery 

me) 

A4 

é8C5 
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SCURCE 


“se We We Ne We Woe No 


DLLREAD: 


_ 
‘es 
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VALLESP = POINTER TO A BUFFER TO RETURN THE VALUE IN CWORD). 


RETURNS: 
THE BUFFER POINTED TO BY VALUESP CONTAINS THE CURRENT VALUE OF 
THE CBJECT. 
AX THE LENGTH IN BYTES OF THE OBJECT. 
AX = 0 IF ILLEGAL PARAMETER. 


PUBLEC: -OLLREAD 


CALL SER VLC 
REP MCVS3 
MCV AxXs3Kk 
RET 


DLLSREADC CO3BJECT, MODIFIER, VALUESP) - READ AND CLEAR 
NETWORK MANAGEMENT OBJECT. 


PARAMETERS: 
O8JECT = THE O38JECT NUMBER CWORD). 
MOCIFIER = WHICH COPY THE CF THE OBJECT CWORD, IGNORED). 
VALUESF = POINTER TO A BUFFER TO RETURN THE VALUE IN CWORD). 


RETURNS: 
THE BUFFER POINTED TO BY VALUESP CONTAINS THE CURRENT VALUE OF 
THE OBJECT. 
THE O8JECT HAS BEEN CLEARED TO O TF A CLEARABLE OBJECT. 
AX = THE LENGTH IN BYTES OF THE OBJECT. 
AX = 0 IF ILLEGAL PARAMETER. © 


PUBLIC OLLREADC 


DLLREADC: 


CALL SERVIC 

Test OL-HMASK CLR *TEST ITF OBJECT IS CLEARABLE 

JZ RCC2 7IF NOT CLEARABLE 

MOVSB 

MOV BYTE PTR DS: CSI-13,0 

LCCP RCC1 

REP MOVS8 THIS WILL EXECUTE ONLY IF FROM BRANCH 
MCV AX, 3X 

RET 


DLLSSET CCBJ=ECT- MODIFIER, VALUESP) - SET NETWORK MANAGEMENT OBJECT. 


PARAMETERS: 


PAGE 


42 


€086/8087/8083 


LOC 


C057 
G059 


CO5Cc 
O05D 
0055 
COSF 
C060 
C061 
C062 
C063 


COQ64 
C067 


CCS9 
0063 
CQ6D 
QGoF 
d074 
GQ79 
0078 
CO7F 


0081 
CO&2 


0084 
CC35 


CBJ 


33C0 
C20800 


0308 

2688371800 R 
cEBAI71TAC0 R 
SACA 

61E1C70C 

8809 


C3 
33C0 


23 
C3 


MACRO ASSEMBLER 


OLL = NETWCRK MANAGEMENT ROUTINES 


SCURCE 


Ne We Ns Net Ne Ne Ne 


DELS 2-5 


SERVIC; 


09/01/80 PAGE 


OBJECT = THE OBJECT NUMBER (WORD). 
MODIFIER = WHICH COPY THE OF THE OBJECT CWORD, IGNORED). 
VALUESP = POINTER TO 3UFFER CONTAINING NEW VALUE FCR OBJECT (WORD). 
RETURNS: 
AX = THE LENGTH IN 3YTES OF THE OBJECT. 
AX = O IF ILLEGAL PARAMETER. 
SCSLTC: OLUSET 
KOR AX, AX ZNO SETABLE PARAMETERS? RETURN ZERO 
RET 3 


SERVIC - CATA INTERFACE SERVICE ROUTINE 


RETURNS: | 
(3X) = CCX) = OBJECT LENGTH. 
(SI) = POINTER TO CBJECT. 
(DI) = POINTER TO VALUE BUFFER. 
(OL) = CTL BYTE FOR OBJECT. 
POP AX 3MY RETURN ADDRESS 
POP a 7CALLER‘’S RETURN ADDRESS 
PCP Q1 7VALUE POINTER 
PCP ES 
POP OX MODIFIER 
POF 3X 7CBJECT 
PUSH Si RESTORE RETURN ADDRESSES 
PUSH AX 
CMP 3X,/LAST_OBJECT 
JG SER1 7IF ILLEGAL OSJECT NUMSER 
MCV AX, 8X MULTIPLY OBJECT NUMBER BY 3 
ADC 3X,BX 
ACD BX, AX 
MCV SI/TABLECBXI].LOC FREAD OBJECT BASE ADDRESS 
MOV DL-TASLECBXI.CTL_FLD 7READ OBJECT LENGTH 
MOV CLZDL 
ANC CX/MASK LEN EXTRACT LENGTH FIELD OF "CTL" 
MOV 3xX,CX WANT TO RETURN LENGTH IN BX ALSO 
RET 
XOR AX, AX ILLEGAL ITEMZ RETURN O TC ORIGINAL CALLER 
POP BX | CLEAR LOCAL RETURN ADDRESS 
RET F7RETURN TC CALLER’S CALLER 


SUMPCNT - USED TO BUMP STICKY 16 SIT COUNTERS 
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LOC OBJ LENE SCOURGE 
747 , (OI) = ADCRESS OF 16 BIT COUNTER 
74% , 
CO86 FFOS 749 SUMPCNT: INC WORD PTR COTI 
0038 7502 Tou JNZ BC1 
CO8A FFOD rot d=C WORD PTR COIIMd , FLOWED GVER TO Cy, RESET TO CFFFFH 
cO8C C3 752 8C1: pam e 
(53 
754 
(29 
756 | 
C37 
738 ,3? DLLETHERLCAD - ENTRY POINT FOR COMPUTING ETHER LOADING. 
759 ; 
769 ; This rcutine is called about every 25 mS by the KACS 
161 7 real-time clock interrupt service routine. It computes a 
62 ; moving average of the amount of traffic on the Ethernet 
163 , by sampline the Carrier Sense (CS) flag and computing a 
7E4 ; new average according to the formula: 
65 ; 
766 ; LOADING(T) = C1I-ALPHA/64K) * LOADINGC(T-1) + CALPHA/E4K)*CS(T) 
167 ; 
(58 ? where LOACING is interpreted as a binary fraction in the 
TE9 ? renge O <= LOADING < 1. 
rarae : 
771 
0028 ?2 ALPHA ECU 40 
tS PLBLIC DLLETHERLOAD 
CO8D 774 DLLETHERLOAD: 
908d 50 3 PUSH AX 7SAVE REGS I USE 
COse 33 rs PUSH BX 
GOSE S52 (7? PUSH OX 
Cag0q 4145200 R aac MCV AX,WORD PTR LOADING *sMULTIPLY BOTTOM HALF 
CO93 B8806FF 779 MCV 8X,OFFFFH-CALPHAtT1) 
CO96 F/§3 7&C MUL BX 
CO¥s C1C0 7&1 RCL AXx,1 7ROUND TOP PART, DISCARD LOW FART 
COVA &3D200 7&2 ACC 0X70 
CO9D 52 FOS PUSH OX 7SAVE TOP PART 
QO9=E A14400 R 784 MCV AX,WORD PTR LOADINGt+2 *MULTIPLY TOP HALF 
COAT F7ES 7&5 MUL 3X 
COAS 532 . 7&6 POP 3X 7ADD TWO PRODUCTS 
COA4& 03C3 | 7&7 ADO AX,3BX 
CCA6 &30200 782 ACC Dx,0 
COA £36200 R 789 MOV WORD PTR LOADING, AX 
COAC E4E0 790 IN AL,PIOA 7READ CS FLAG 
COAE A804 794 TEST AL,O4K 7TEST FLAG 
Q080 7403 oe JZ DEL1 7IF NC CS 
COB2 83C228 193 ACD DX,ALPHA 7ADD TO PERCENTAGE 
CCBS 8916640C R 754 Deity: MCV WORD PTR LOADINGt+2,DX 
CoBy SA 795 PCP DX 
GCaA 58 1596 PGP BX 
O0B6 58 757 PGP AX 
CoBc C3 738 RET 
799 
860 


84 BSEJECT TITLE (C’°DLL - MULTICAST PROCESSING’) 


~ 


EOS6/EDS?7/ EDEL 


LOC 


COED. 


C069. 
COEA 
COEB 
CCEC 
COED 
GOQEE 
COF1 


OJ 


DA 

58 

52 

$C 

FA 

309100 
1507 
C506980001 
FB15 
3D0200 
(508 
Cé069800FF 
8022 


Cé06980CCO0 
BO2A 

eect 

oa) 

C3 
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DLL - NZTWCRK MANAGEMENT ROUTINES 09/01/80 PAGE 
SCURCE 
ea OLLSSETSMCCE (MODE) - SET ADDRESS RECOGNITION MODE. 
4 
; PARAMETER: 
; MODE: C = NORMAL MODE. 
; . 1 = ALL MULTICAST. 
; 2 = PROMISCUOUS. 
; ALL OTHERS NORMAL MODE. 
PUBLIC ODLLSETMODE 
DLLSETMODE: 
PCP OX 
PCP AX 
PLSH 9X 
PUSHF *MAKE THIS A CRITICAL REGION 
CLI 
CMP AXr1 7TEST FOR "ALL MULTICAST" 
JNZ DSM1 7IF NCT 
MOV ALLMC,1 
JMP SHCRT DSM3 
DSM1: CMP AX,2 JTEST FOR PROMISCUOUS MODE 
JNZ DSM2 7IF NOT 
MCV ALLMC,OFFH 7SET ALL MULTICAST FLAG 
MOV AL,/PICSENP TELL HARDWARE TO ACCEPT EVERYTHING 
OUT PIGB-AL 
PCPF 
RET 
DSM2 MOV ALLMC-O JNORMAL MOCE. CLEAR "ALL MULTICAST" FLAG 
DSM3 MOV AL, PICSEN 7CLEAR PROMISCUOUS MODE 
OLT PTOB,AL 
POPF 7DONE -— RETURN 
RET 
ree, OLLSACOMCIC CMCIOSO) ADO MULTICAST ID. 
f 
, PARAMETERS 
; MCIO$O - OFFSET OF 6-SYTE MULTICAST ID. 
? 
; RETURNS: 
; AL = O - OPERATION COMPLETE, 
; AL = 1 - LIST CVERFLOW. 
PL3LIC OLLADOMCIO 
OLLADOMCIC: 
pcp AX 7RETURN ADDRESS 
POP 3X 
PUSH AX 
PUSHF ;MAKE THIS A CRITICAL REGION 
Cur 
CALL CHECKMCID 7CHECK IF ALREADY IN LIST 
RCR AL,1 
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200800 
7018 


3406 
FOE4 
BF9BOO R 
G3F83 


MACRO ASSEMBLER 


Like 


357 
ewe 
855 
£é0 
Se 
&62 
ome: 
S64 
665 
SCG 
867 
362 
369 
870 
71 
372 
873 


874 


DLL - MULTICAST PRCCESSING 09/01/80 PAGE 
SCURCE 
JC AOM4 
MCV AX,/MCIDOL LENGTH OF TABLE 
CMP AX78 >MAX LEN 
JGE ACM2 IF MAX LEN EXCEEDED 
MCV AH, 6 COMPUTE INDEX INTO TABLE 
MUL AH 
MCV DI,OFFSET OGROUP:MCIO 
acc DI,AX | 
MOV SI,BX MOVE INTO TABLE 
PUSH DS 
POP 25 
MCV Cx,3 
cLe 
REP MOVSW 
INC MCIOL 7ONE MORE IN TABLE 
AOM1: -XOR AL? AL RETURN SUCCESS 
PCPF 
RET 
AQM2: MOV AL?1 RETURN FAILURE 
POPF 
RET 
7h? DLLSDELMCIC C(MICD$0O) - DELETE MULTICAST ID. 
; 
PARAMETER: 
3 MCIDSO - OFFSET OF 6-BYT= MULTICAST ID. 
PUBLIC OLLDELMCIOD 
OLLDZELMCIC: | 
PCP AX 7;RETURN ADDRESS 
Pop BX 7ID 
PUSH AX 
PUSHF MAKE THIS A CRITICAL REGION 
CLI | 
CALL CHECKMCID 
ROR AL, 1 CHECK IF IN LIST 
SNC DOMC1 IF NCT IN LIST 
MCV DI,St CESTINATION IS MATCHING ENTRY 
ADO SI-6 SOURCE IS NEXT ENTRY 
DEC CX 7COMPUTE NUMBER TO MOVE 
MOV AX CX 
ACD CX,CX 
ace CXy AX 
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C146 
0146 
C14A 
C14C 
0146 
0151 
0154 


0157 
C159 
0158 
UTS: 
0160 
0163 


C3J 


1 
07 
ae 
PS 
A5 
FFOE9SOC R 


9D 
C3 


C7OéE99OCCOCA R 
C3 


EBOEI9NC R 
ES1E 
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835702 

6B7FO4 

829300 R 


3304 
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335402 
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DLL = MULTICAST PROCESSING C9/01/80 


SCURCE 

PUSH DS 7MOVE DOWN 

POP ES 

CLO 

REP MOVSW 

DEC MCIDL ONE LESS IN TABLE 
DMC1:  PCPF 

RET 

DLLSCLEARMC - CLEAR MULTICAST LIST. 


PUBLIC OLLCLEARMC 


DOLLCLEARMC: 


MCV MCIDL,O CLEAR LIST 
RET | 


aan CHECKMCID - CHECK FOR MULTICAST ID MATCH. 
? \ 
; PARAMETER: 
? CBX] - POINTER TO 48-BIT ETHERNET ADDRESS TO CHECK. 
4 
, RETURNS: : 
; AL = TRUE ~ ADDRESS WAS IN MCID TABLE. 
7 AL = FALSE - ADORESS WAS NOT IN TABLE. 
; IF TRUE, 387CX = INGEX INTO MCIC TABLE 
7 AND SI POINTS TO MATCHING ENTRY. 
, 
; PRESERVES: 
? BX 
CHECSECID: 
MOV CX/MCICL yNUMBER OF MCID‘’S 
JCXZ CMCID3 7IF NOT MCID’S 
MCV AX, 8X] 7LOAD ADDRESS 
MCV DX, CBX+2] 
MOV DI,CBX+4) 
MCV SIT,-OFFSET DGROUP:MCID 
CMCIO1: CMP AX, CST] 
JNZ CMCID2 
CMP OxX,CSIt2] 
JNZ CMCID2 
CMP O2,CSit+4] 
JZ CMCID4 7iF A MATCH 


PAGE 
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LOC O38J LIne SCURGE 


G165 83Cé06 965 CeCidde: AGD SI76 
C168 &2ED ~ 966 LCOP CMCIO1 
967 2 
G16A 32C0 eaege C¥CID3: XCR AL, AL 7RETURN FALSE 
C16e C5 969 RET 
970 
C160 BOFF 971 CvClo4: MCV AL,QFFH sRETURN TRUE 
Cer GS 9fe RET 
: rage 
974 


ot3 S$EJECT TITLE C*DLL - TYPE PROCESSING ROUTINES’) 


8086/&087/ 8082 


O5J 


0170 
C170 5A 
C171 32 
O172 58 
0173 
Clr 
C179 €5F908 
G17C 


Sle BY ge 
0161 
C182 
0133 
C184 
0185 
C186 
Q182 &9500E 
0188 32C0 

C18) 


oO- TN mw 


I> ‘Ti 


013F 
0191 
2194 
C198 32C0 
C19A FRE2 


8905 
895010 


019C 
Q19¢ 
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DLL 
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~ TYPE PROCESSING 


ROUTINES 


09/01/80 PAGE 


DLLCONNECT (TYPE, MBX$O) - REGISTER USER OF A DLL TYPE. 


PARAME 
ie 
Max 


ACCESS 
THE 


PUBLIC 


DLLCONNECTs 


RTY1: 


RTY2Z: 


Ne Na Ne Ne Ne Ne Ne 


e:O.P 
PoP 
POP 
XCHG 
MCV 
CMP 
JZ 


4CV 
CLD 
PUSH 
PCP 
REPNZ 


JNZ 
MCV 
XOR 


IMP 


MCV 
MGV 
INC 
XCR 
JMP 


MCV 
JMP 


DLEUTS 


TERS: 
E- THE 16-3IT TYPE CODE 
$0 - OFFSET OF A MAILBOX HEADER TO SEND PACKETS OF THIS TYPE TO. 
S3 
= 0 ~ OPERATION COMPLETE. 
= 1 - LIST OVERFLOW. 
=o. 

TYPE TABLE. 

DLLCONNECT 

DX 

BX *MBX 

Ax 7TYPE 

AL,AH “7PUT BYTES IN PROPER SEQUENCE 

CX,/TYPEL NUMBER OF TYPES 

CX78 

RTY2 7NO MORE SLOTS LEFT 


are DGROUP:TYPET 
Senn 


DS 
ES thar 
SCASH 3SEARCH LIST yo 
RTY4 IF NOT MATCH He 
COIT+(TYPEM-TYPET)-2,3X #STORE NEW MBX FOR OLD TYPE fy 4} 
AL?AL SOPERATION COMPLETE 
DX RETURN = 
POT ISAX SSTORE TYPE AT ONE PAST LAST IN LIST ayy. | 
COII+(TYPEM-TYPET)/BX ZSTORE MBX ; 
TYPEL ;ONE MORE IN LIST 
Miya SOPERATION COMPLETE 
DX 3 RETURN 
AL +1 STABLE OVERFLOW 
OX JRETURN 

CONNECT C(TYPZ) - REMOVE USER OF A DLL TYPE. 


PARAMETERS: 
BE <= THE T6"BIT TYPE CODE. 


ove 


ACCESS 
TIE 


ES? 
TYPE TABLE. 


tay 
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© 
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8D07F10 
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DL = Te Pe PROCESSING RCULINGS 


SCURCE 


PUBLIC OLLOISCONNECT 
DLLODTSCONNEC 1: 


PCP DX SRETURN ADDRESS 

PCP AX. TYPE CODE 

XCHG AL, AH 3PUT BYTES IN RIGHT ORDER 
: SEARCH TABLE FOR TYPE 

MOV CX, TYPEL ;NUMBER OF TYPES 

MCV DI,VOFFSET DGROUP:TYPET 

CLO 

PUSH DS 

PCP a 

REPNZ  SCASW 2 SEARCH 

JNZ DIS IF ONO MATCH 
; REMOVE FROM TABLE 

PUSHE ; SCRITICAL REGION 

ele 

MCV Sit 

. SB jr 2 7MOVE ENTRIES DOWN 

MCV BX,D1 7SAVE ADDRESS 

PUSH CX 3SAVE COUNT 

RED MCVSW SMOVE TYPE TYBLE DOWN 

LEA DI, CBX]+C(TYPEM-TYPET) ZREPEAT FOR MBX TABLE 

LEA SI LBLI42 

POP CX 

REP MCV SW 

HEC TYPEL 3CNE LESS IN TABLE 

POPF SRESTORE FLAGS 


DIST: JMP DX *RETURN 


SEJECT TITLE (”OLL - INITIALIZATION ROUTINE”) 


09/01/80 PAGE 
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Loc c3J LINE SCURCE 
1071 Pee DLLSTART 
1072 
1073 P DLLSTART PERFORMS ALL INITIALIZATION NEEDED FOR DLL. 
1074 - 
1075 : RETURNS: 
1076 : AX = QO == INITIALIZATICN SUCCESSFUL 
1077 ; AX = O8H -- HARDWARE FAILURE PREVENTED READING HOSTID. 
1978 ; 
1079 ; NCTE: The hardware is not supposed to fail while reading 
1OEC ; the HOSTID, but there is a bad hardware race condition 
1021 ; which can cause it to fail at temperture extremes. 
1082 
1083 
1084 PUBLIC ODLLSTART 
C1CE 1085 DLLSTART: 
1086 
1087 ; CREAT= KAQS OBJECTS 
1688 
C1Cze C= 1089 PUSH cS ws 
Q1CF 380C00 | R 1090 MCV AX,OFFSET CGROUP:KAOSOSJECTS pov 
C1p2 50 1051 PUSH AX by! 7) 
0103 £80009 = 1092 CALL CCCREATELIST yredl, M / 
1093 
103 CLEAR DATA BASE : 
1095 | 
0106 1= 1094 PUSH aks 
C1o7 07 1097 PoP ES 
0168 8000 1098 ACY AL,0 
C1Da BF4600 R 10395 MCV DI,VOFFSET DGROUP:DB_START 
C100 B9ABCO 11¢€0 MOV CX,OB_=END - DB_START 
Q120 F3 | 1101 REP  §TCSB | 7CLEAR MEMORY 
C1E1 AA 
1102 
11063 ; INITIALIZE VARIABLES WHICH NEED NONZERO INITIAL VALUES 
44.04 
C1E2 C7066D0CC4604 R 11€5 MCV NEXT_CH/OFFSET CGROUP:RX1ISR 
C128 C7068D0C2800 R 1166 MOV RCVO_TAIL-OFFSET DGROUP:RCVD_HEAD 
O1E£ €606560C01 R 44167 MCV SLE_FIRST+-1 7MARK THAT ALL CHANNELS NEEO INITIALIZATION 
O1F3 €606970C003 R 1162 MOV BUF _COUNT~3 4 @ | 
1169 ) 
111¢ 
1111 ; READ HOST 19 FROM SERDES 
1112 
C1F3 370A 1113 MCV BH,10 ;UP TO 10 RETRIES 
C1FA 24F1 FETs IN AL,PICMASK 7SAVE PIC MASK IN BL 
C1FC §AD8 45 _MOV 3L7AL ee 
1116 Pai | 
O1FE B0F3 se te erg SRT1: MOV AL,PIOCLR 7CLEAR SERDES “pm 
C200 £6F1 1118 3 OUT PIC3,/AL 
C202 £506 1119 OUT RESZT_CHANNEL_COUNTERZAL SYNCH HARDWARE WITH SOFTWARE platy 
0204 £605 1120 te OUT RESET_ERROR,AL f7CLEAR ANY EXISTING ERROR FLAGS YORO anu 
C206 32C0 444 ' XOR AL? AL 7WILL DMA INTO BEGINNING CF BUFFER RAM 
C208.66c2 Gee =F OUT CH1ADDR-AL gaat 
CZ0A E£6C2 11253 T CHTADMR,A 
C20C £6C3 1124 3 ae 


‘te CHIWCrAL 


wat 
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LOC O3J 


io AL Were" 2a308T AFTER. 257.8YTES) amo A> 


O20 FECO 1125 
6210 £603 1126 OUT CH1WC/AL : 
C212 8000 1127 4 MCV AL, ODH ;SET OMA waSK 
0214 E6CF 1128 OUT DYAMASK/AL | 
0216 £602 1129 OLT SET_RXAV1/AL SIGNAL CHANNEL AVAILABLE@SerNes 
C218 B02 1130 MCV AL, O£2H ZEXTRA COMMAND BECAUSE SERDES IS CASTINATE 
G21A £621 1131 OUT PIO8,AL 5 Gad ppm47r- f 
Q21C 890A00 1132 MOV e410 | 7 ,WAIT AT LEAST 9.6US , Wloraded 
C21F EQFE 1133 SRT1A: LCCPNZ SRT1A Athy 1, M51 \oop' 
Q221 B0E0 1124 MOV AL/PIOREAD ; seen SERDES TO READ murthe oddros¥ ( on 
C223 26E1 1135 UT PICB,/AL 
C225 B92C01 1136 | NOV Cx,300 ; TIMEOUT 
1137 , 
0228 BOFE 1138 SRT2: MCV AL/NOT CH1_D0NE 7O0PEN MASK FOR CHANNEL 1AONLY 
C22a E61 1139 OUT PICMASKAAL 
G22c s00C 1140 | HGV AL, POLL_PIC ;POLL TO SEE IF CHANNEL 1 DONE 
C22E E6FO 1141 OLT PICCMO,AL 
C230 £4F0 1142 | IN AL, PICDATA 
0232 3480 1143 XCR AL, 80H 7TEST IF INTERRUPT O ASSERTED 
C234 E02 1144 LOOPNZ SRT2 ;IF NOT DONE ANO NOT TIMEOUT 
1145 
0236 740C 1146 | z SRT3 ZIF_OK 1 Ghn 
C238 FICE 1147 / dec BH FRETRY READ HOSTID FUNCTION Mi 
023A 75C2 1148 / f IN SRT 1 
023cC 8ac3 1145 Mov AL, 3L } RESTORS THE OLD MASK 
C23 E6F1 1156 | OUT PICMASK/AL 
0240 380300 1151 MCV AX, OBH ZRETURN FAILURE 
0243 C3 1452 | RET 
1153 
C244 3060 1154 | SRT3: MGV AL,SEOQI_PIC+O  FEOI THE PIC 
C246 £6F0 1155 Wek. OUT PICCMD,AL on 
0248 €AC3 1156 ~ .SHOV AL, BL FRESTORE OLD MASK dor PL 
024A E6F1 1157 OUT PICMASK+AL | 
C24c BOFS 4158 HCV AL,PIOCLR 7CLEAR THE SERDES 
OZ4E £61 1159 OLT PIOB,AL 
116¢ 
6250 410200 R 1161 ACV AX,BUFFER_STARTC2] FMOVE ADDRESS TO HOSTIO (wrrany) 
C253 A35C00 R 1162 HCV HOSTID,AX 
0256 410400 2 1163 MCV AX, 3UFFER_STARTC4I 
0259 A35E00 R 1164 HCV HOSTIOC21/AX 
C25c 4106090 R 1165 MOV AX, 3UFFER_STARTC6] 
025F 435000 R 1166 MCV HOSTIDL417 AX | pm fh’ maphponh 
6262 £606 1167 OUT RESET_CHANNEL_COUNTER/AL ZRESET TO START WITH CHANNEL 14 Ann of : 
1168 
1169 ; INITIALIZE BCB POOL 
1176 | | 
0264 836F00 R 1171 MOV 3X,OFFSET OGRCUP:&CB 
6267 890400 4472 MOV CX/NUM_RX_3UEF 
c26A 418700 R 1173 SRT4: MCV AX, 3CB_HEAD 7LINK ONTO STACK 
C260 6907 1174 MOV C2X].LINK, AX 
G26F 8912870C R 1175 MOV 8C8_HEADs 3X 
C273 830306 1176 ADD 3X,8CB_TYPE_LEN ZADVANCE TO NEXT 
C276 E2F2 1177 LOCP- SRT4 
1178 
1179 ; INITIALIZE TRANSMIT BUFFER POOL 
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Loc o3d LINE SCURCE 
1180 
C278 880000 R 1924 BX,OFFSET DGROUP:BUFFER_START 
C278 890100 1182 CX,/NUM_TX_BUF 
0272 50 1183 AX 7SAVE BUFFER POINTER 
C27F 51 1144 on 7SAVE COUNT 
1185 . 
0280 230000 R 1184 BX,OFFSET OGROUP:OLLTXFREEMBX #SEND TO POOL 
C283 33 11287 BX | 
0284 1£ 1184 aS 
C2385 50 | : 1149 AX 
6286 £80000 z 1150 CQSEND 
1154 ce career: 
0289 59 1152 cx 
028A 58 1193 AX 
C288 CSFAQS 1154 AX,SEG_BUF_LEN 
CZ8E E2EE 1195 SRTS 
1194 
1197 ; INITIALIZE RECEIVE BUFFER POOL 
1198 : : 
c290 #90400 1159 “ACV CX,/NUM_RX_8UF 
C293.50 12C6 SRT6:.° PUSH AX SSAVE BUFFER POINTER 
C294 51 1201 PUSH CX 3SAVE COUNT 
1202 
6295 50 1203 PUSH AX 3SEND TO RCVD POOL 
0296 £89601 1204 CALL DLLRXRETBUF 
1205 
0299 59 1206 PCP CX 
C29a §3 12:07 PCP AX 
C293 C5FA0S 4208 ACD AX,SEG_BUF_LEN 
O29E E2F3 1209 LCCP SRTE 
1210 , 
see : SET UP PORTS 
1212 
C2AC 32C0 1213 XCR AL, AL ZERO 
02A2 £605 12144 OUT RESET_ERROR-AL CLEAR ANY EXISTING ERROR FLAGS: ale 
G2A4 E6CF 1215 OUT OMAMASK7AL SENABLE ALL DMA CHANNELS ath 
C2A6 802A 1216 MCV AL/PIOSEN SENABLE SERDES (0 Loop rp) 
C2A8 £6£1 1247 OUT PIOB,AL ) 
12128 : 
C2AA 33C0 424s XGR AX, AX ZRETURN SUCCESS 
C2ne C3 122C RET 
. 1221 
122° 
1223 
122% SEYECT TITLE C’DLL — TRANSMIT MAIN ROUTINES’) 
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Loc O3Y LINE SCURCE 
1225 oe DLLTXSENO CPACKET) = TRANSMIT PACKET 
1226 ; 
42.27 ; _ PARAMETER: 
1228 ; PACKET - OFFSET IN DGROUP CF THE SEGMENT SUFFER 
4229 
1230 
1231 PUBLIC OLLTXSEND 
G2A0 1232 DLLTXSEND: 
O240. 54 4233 PGP 0X 7RETURN ACDRESS 
G2AE 58 T2534 PGP 3X PACKET ADDRESS 
CZAF 52 Pees PLSH Ox 
1236 
1237 ; MOVE HOSTIO TO DL_SOURCE FIELD 
1238 
0230 A15CQ0 R 1239 MOY AX,HOSTID 
C283 8&947CC 1240 MCV C2@x].0L_SOURCE,AX 
C285 A152£00 R 1241 MCV AX/HOSTIDC2) 
C289 89470E 1242 MOV CBX+2].D0L_SOURCE,AX 
G28C A14000 R 4243 MCV AX,HOSTIO{[4] 
C2BF 2894710 1244 MOV C85x+4].0L_SOURCE,AX 
1245 
1246 ; CHECK FOR AND PROCESS SELF-ADCRESSED PACKET 
1247 . 
C2C2 F64704501 1248 TEST BYTE PTR C3BXI.DL_CEST-MCFLAG TEST MULTICAST BIT 
C2C6 751A 1245 JNZ TXP1 7IF MULTICAST 
C2C8 A15C00 R 1250 MCV AX,HOSTIO CHECK IF THIS HOSTID IS SELF-ADDRESSED 
C2C8 394706 125% CMP C3X].,0L_DEST,AX 
C2CE 7523 1252 JNZ TXP2 7IF NOT 
C290 A15ECO R 12.53 MCV AX,/HOSTIOC2Z]) 
0203 394708 1254 CMP CSx+2].0L_DEST,AX 
Q206 7518 1255 JNZ TXP3 
C208 A16C00 R 1256 MCV AX,HOSTIOL4I 
C208 29470A 1257 CMP C&ext+4].0L_DEST,/AX 
O20& 7513 1258 JNZ TXPS 
Q2=0 EBOC 1259 - JMP SHCRT TXP2 
QZE2 55 E260 TXO1: PUSH BX SAVE PACKET POINTER 
C223 &D5F06 1241 LEA QX,CBX].0L_DEST -CORRECT FARAMETER 
C2E6 E850FE 1262 CALL CHECKMCID *CHECK IF THIS IS MULTICAST SELF-ACDRESSED 
G2E9 58 1263 PCP 3 X RESTORE PACKET PCINTER 
Q25A CO0C& 1264 ROR AL+1 
C2EC 7305 1265 JNC TXP3 ZIFF NOT SELF-ADORESSED 
1266 
C2ES 53 1267 TXP2: PUSH 3X SAVE PACKET POINTER 
G2EF =38FCO3 12628 CALL LCCP_PACKET 7SEND TO RECEIVE SIDE 
C2Fe 53 © whee OS PCP BX 
1270 
T2701 ; TRANSMIT IF NO OTHERS PENDING, ELSE, QUEUE IT UP 
Tere 
C2F3. 8032680000 R 1273 TXP3: CMP XMITSUSY-,0O CHECK IF TRANSMITTER IS NOW BUSY 
C2F8 7312 | 1274 JNZ TXP4 7JUMP IF BUSY 
C2FA 9C 1275 PLSHE 7SET UP CRITICAL REGION 3 
C2F8 FA 1276 CLI < _ 
Q2FC €80801 T2072 CALL SETUPXMIT 7START TRANSMISSION ra 
O2FF Cé066A0C00 R 1278 MOV BACKOFF_COUNT,O sCLEAR BACKOFF INDICATORS 3 o) 
C394 C706680CC0C0 R 1273 MCV RACKOFF_MASK FC 


ine 
vi 
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LOC C3J LINE SCURCE 
Q30A 99 e380 PCPF 7RETURN 
0308 C3 12287 Rod 
C30C 381000 R T2282 TXP4; MCV AX/OFFSET DGROUP:DOLL_MBX1 -SEND TC TRANSMIT MAILBCX 
C30F 56 1233 PU Sr AX 
GS310 TE 1284 PUSH DS 
CSL? 33 12¢5 POSH 3X 
O342 =£800C0 E Lees CALL CQSEND 
O375.-CS 1267 RET 
1238 
128 
129C 
1251 
1292 SEJECT TITLE (’°DLL - TRANSMIT INTERRUPT SERVICE ROUTINES”) 
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XMITISR: 


KES 1s 


XTS PAS 


TRANSHIT INTERRUPT 


SERVICE ROUTINES 09/01/80 PAGE 


XMITISR - TRANSHIT INTERRUPT SERVICE ROUTINE. 
THIS RCUTINE IS INVOKED BY THE TRANSMIT COMPLETE INTERRUPT. 


IT CHECKS THE ERROR STATUS, INITIATES BACKOFF IF THERE WAS A 


COLLISION, RETURNS THE PACKET BUFFER TO THE APPROPRIATE FREE 
LIST, AND SETS UP FOR TRANSMISSION OF THE NEXT PACKET, IF ONE 
HAS BEEN CUEUEC. 

PUBLIC XMITISR 

PUSH ES 7SAVE STATE OF INTERRUPTED ROUTINE 
PUSH DS 

ACY DS,/DGRP 

PUSH AX 

PUSH CX 

PUSH Dx 

PUSH BX 

PUSH ST 

PUSH DI 

MCV AL,+Z0I_PIC 7EOI THE PIC 

OUT PICCMD,AL 

IK AL, PIOA ;READ STATUS 

ANC AL, OCOH 7CHECK FOR ERRORS 

Jz XIS5 7IF NC ERRORS 

PROCESS ERROR 

TEST AL, 8OH 7CHECK FOR COLLISION 

32 TSG ;IF NOT COLLISION 

CMP BACKOFF_COUNT/ATTEMPT_LIMIT ZCHECK IF AT MAX COLLISION COUNT 


JNE X1S1 IF MORE COLLISIONS ALLOWED 
MCV DI-OFFS2T DGROUP:EXCZEDED_COLL fINCREMENT ERROR COUNTER 
CALL 3UMPCNT 
JMP SHORT XISS5 
CCMPUT= BACKOFFE AND START TIMER 
CAG RANDOM 7GENERATE A RANDOM NUMBER IN AX 
MCV BX, 3ACKOFF_MASK 
STC ;SHIFT IN A 1. 
RCL BX +1 
AND BX,3ACKOFF_LIMIT #317 MASK FOR MAX LEN OF BACKOFF_MASK 
MOV SACKOFF_MASK,2@X 
ANO AX, BX 
JNZ XIS1A 3; IF COUNT IS ZERC, MAKE IT ONE 
INC AX | 
MCV 3X,SLOT_TIME 7COMPUTE RANDOM*SLOT_TIME 
MUL 3X 
OUT PIT_BCK/AL SOUTPUT THIS TO THE BACKOFF TIMER 
HCV AL? AH 
- OUT PIT_BCK/AL ? 
HCV BACKOFF_WAIT,1 FWE ARE WAITING FOR A BACKOFF INTERRUPT 


26 
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retransmit a packet after a collision. 
NCT2: Tnere 


Se) 
“oO 


is a bug in the 8259A interrupt controller 


LOC O8J LINE SCURCS 
1344 . 
1349 , UPDATE NETWORK MANAGEMENT COUNTERS 
135C 
0367 F=EO66A0C R 133'1 INC BACKOFF_COUNT 7ANOTHER COLLISION 
0368 8O03E6A0CC1 R 1552 CMP BACKOFF_COUNT,/1 sCHECK IF THIS IS THE FIRST COLLISION 
C370 7508 ‘Loo JNZ XTS2 7IF NOT FIRST COLLISION 
Q372 BF4A00 R 1354 MOV DOI,-OFFSET DGROUP:sPRIMARY_CCLL 
O375 =80EFD 1555 CALL BUMPCNT 
6378 ¢€871 1330 JMP SHORT TXEXIT . 
C37A BF4C00 R 1557 XTS2: MCV DI-OFFSET OGROUP:SECONDARY_COLL 
C370 E806FD 1358 CALL BUMPCNT 
0380 £369 1359 KLSS2 JMP SHORT TXEXIT *WAIT FOR BACKOFF INTERRUPT 
136C 
1361 ? PROCESS TIMEOUT ERROR 
1362 
C382 BF5000 R 1363 XIS4: MCV OI,OFFSET CGROUP:TX_PKT_TCC_LONG 7 INCREMENT ERROR COUNTER 
USGS: ar EEC 1364 CALL BUMPCNT 
| 1365 
1360 ; TRANSMISSION COMPLETE 
1S5¢7 
0386 881000 R 1368 X1S5*% HCV AX,OFFSET DGROUP:ODLL_M8X1 7GET NEXT FROM TRANSMIT MAILBOX 
C388 50 1369 PUSH AX 
C36c ESO000 E 1357¢ CAlet CEICRECEIVE 
C3&EF &@B0E660C R 1371 HCV CX,CURRENT_PACKET 
0393 S81FSRFFFF 13%2 CMP SX,OFFFFH 7CHECK FOR NULL 
C297 7415 1313 JZ XIS6 
0399 51 1374 PUSH CX 7SAVE CURRENT_PACKET ON STACK 
C39A £86000 1375 CALL SETUPXMIT 
C390 59 1374 PCF CX 
C39E Cé066A0CTO R 1377 MCV BACKOFF_COUNT,O -CLEAR BACKOFF INDICATORS 
O3A3 C706680C0000 R 13728 MOV BACKOFF_MASK,0 
C3A9 230690 1379 JWve XLS7 
CSAC C606630C00 R 1320 XIS6: MCV XMITBUSY-,C *MARK NOT BUSY 
0331 880000 R 1321 XIS7: MOV AX/OFFSET DGROUP:OLLTXFREEMBX ,RETURN BUFFER TO POOL 
0384 50 13&2 PUSH AX 
0335 1¢é 1323 PUSH DS 
0386 51 1334 PUSH CX 
C337 &60000 e 13¢5 CALL COTS=END . 
1386 
C35A FFO6460C R 1387 INC TCTAL_SENT 7 INCREMENT COUNTER 
CSBE 7528 4388 JNZ TXEXIT 7IF NC OVERFLOW 
O3C0 FFOE43006 R 1369 INC TCTAL_SENTtH2 2INCREMENT HIGH PART OF COUNTER 
C3C4 €825 13950 JMP . SHORT TXEXIT ,RETURN FROM INTERRUPT 
1391 
1392 
1393 
1394 a? BACKOFFISR - SERVICE INTERRUPT FROM BACKOFF TIMER, 
1395 
1356 This rcutine is started by the backoff-timer-expired 
1397 interrupt. It reinitializes the transmit channel to 
1358 
13 
14 
14 
14 


we Ne We No Se Ne Ns Ns Ne 


10 which will cause spurious interrupt 7’s to be generated 
C4 if some other interrupt is asserted and removed before it 
Ge is serviced. The flag BACKOFF_WAIT is set iff a real 
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SOURCE 


SACKOFFL 


BCX Ts 


interrupt for this routine is expectad, if it is not set, 
this routines iaqnores the interrupt. 


PUBLIC BACKOFFISR 


SRS 

PUSH eS 7SAVE STATE OF INTERRUPTEC ROUTINE 
PUSH O$ 

MOY 5S,O0GRP 

PUSH AX 

PUSH CX 

PUSH OX 

PUSH BX 

PUSH Sa 

PUSH OT 

MOV REYEOL PIC AEOT THe PIC 

CUT OTCCMD, AL 

XCGR AL, AL *7TEST AND CLEAR BACKOFF_WAIT FLAG 
XCHG AL,BACKOFF_WAIT 

OR AL? AL 

JNZ BOX1 

JMP TXEXIT -7EXIT IF NO SACKOFF PENDING 

MCV BX,CURRENT_PACKET 

CALL SHORT SETUPXMIT 

JMP SHORT TREXIT 


TXEXIT - EXIT CODE FOR TX INTERRUPT SERVICE ROUTINES 


This is A common exit routine for the transmit interrupt 
service routines. Its only excuse for existing is to save 


code snace. 


‘Ne 


AL,PIOA 
AL,30H 

TXE1 
AL,READ_IRR 
PICCMCD,AL 
AL,PICDATA 


Ne Ne Ne 


TX21 : 
RESET_ERROR-AL } 
RCV_HANG : 


DT 
oi 
BX 
Ox 
Cx 
Ax 
DS 


SEE IF ANY LEFT OVER RCV ERRORS 


JUMP IF ALL IS OKAY 
HAVE RCV ERROR, IGNORE IF THERE IS A RCV INT 
this is a fix to a possible hardware error 


AL,CH1_DONE OR CH2_DONE OR CH3_DONE +» SEE IF ANY RCV INTERRUPTS 


IF NOT ZERO, THEN THERE IS A WAITING RCV INT 
NO RCV INTERRUPT, I WILL CLEAR IT 
BUMP COUNTER OF THIS OOD EVENT 
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LOC OaJ CIN SCURCE: 
C403 C7 1453 PCP Es 
C409 CF 1459 LS oe 
1460 
1461 
14€2 SEJECT TITLE C’DLL - TRANSMIT SERVICE SUBROUTINES’) 
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LOC OaJ Line SCURCE 
1463 77 SETUPXMIT - SET UP TRANSMITTER HARDWARE. 
1464 ; 
1465 ; Given ths address of a packet buffer, this routine initializes 
1466 ; the transmit OMA and issues a transmit command to the SEROES. 
1467 ; 
1468 ? PARAMETER: 
1469 ; (8X) = OFFSET IN DGROUP OF THE SEGMENT BUFFER. 
1476 ; 
1471 ; USES: AXs BX. 
1472 
1475 
Q40A 1474 SETUPXMIT: 
C40A 884704 1475 MCV AX, CBX1].SEG_LLENGTH ,-QUTPUT PACKET LENGTH TO OMA 
C400 48 1476 DEC AX 7DMA NEEDS ONE LESS THAN REAL LENGTH 
Cs0:2 -26C] . 1477 OUT CHOWC,AL 
C410 gAc4 | 1478 MCV AL, AH 
C412 €46C1 1479 OUT CHCWC,AL 
1480 
0414 &@3C3 1421 MOV Ax, BX *CALCULATE PACKET BEGINNING AS SEEN BY DMA 
C416 ZOFAFF R 14@2 SUB AX,OFFSET OGROUP:BUFFER_START = VAL_DL_DEST 
0419 €6C0 1483 OUT CHCADOR-AL OUTPUT PACKET ADDRESS TO DMA 
04138 8AC4 1464 MCV AL, AH 
041D £6C0 1465 OUT CHCADDR,AL 
1446 
O41F 8000 14é7 MCV AL,O *7CLEAR TRANSHIT MASK BIT 
0421 E6CA 1486 OUT DOMAMSK&B-,AL 
0423 £600 1489 OUT SETLTXSRT-AL 
1490 
O0425 $91E660C R 1491 3 MCV CURRENT_PACKET/-BX -SAVE PACKET BUFFER ADDRESS 
0429 C4S06520C0FF R 1492 HCV XMITBUSY-/OFFH 7MARK TRANSMITTER AS BUSY 
C422 C3 | 1493 RET | . , 
1494 
1495 
1496 
1497 
1498 SEYJECT TITLE (’°DLL - RECEIVE MAIN ROUTINE’) 
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Loc Q3J LINE SCURCE 


1493 ae, DLLAXRETBUF CBUFFERSP) - RETURN BUFFER TO OLL. 
15C6 ; 
1501 ; PARAMETER: 
15C2 ; BUFFERSP = OFFSET IN DGROUP OF THE BUFFER. 
Tacs 
15C4 
1505 PUBLIC OLLRXRETBUF 
O42F 1506 OLLRXRET3UF: 
C42F SF 1507 POP DI *RETURN ACDRESS 
C430 5 1508 DOP Sal 7BUFFER POINTER 
| 1509 
0431 $C 151¢ PUSHF 
C432 FA 1517 CLI PREVENT INTERRUPTS FROM GETTING US HERE 
‘Thee e 
C433 &31E870C oR 1573 MCV BX,3C3_HEAD GET NEXT BUFFER CONTROL ocr(daas. 6 ) 
C437 §807 1514 MOV AX,C3X].LINK 
C439 438700 R 1515 MOV BCB_HEAD, AX . 
1514 
GO43C 81&2F3FF R 15147 SU3 SI-OFFSET DGRCUP:BUFFER_START~VAL_DL_DEST+1 FSUBTRACT OFFSET 
C440 897704 1518 MCV C8X1.8UF,STI INITIALIZE CONTROL BLOCK 
1519 
C443 3032950CCO R 152¢ 4p BUF_LCOGP,O *CHECK IF ANYONE NEEDS A LCOPBACK BUFFER 
8443 7410 1524 4 RBF1 7IF NOT 
C444 FEDEISOC R 1522 DEC BLFE_LOOP 7ONE LESS 
C44E 90 VS25 PCPF 7FORMAT FOR CALL 
C44F 57 1524 PUS! DI 7RETURN ADDRESS . 
0450 882000 R 1525 MCV AX,OFFSET DGROUP:DLL_MBX2 4SEND TO WAITING M8X 
0453 50 1526 PLSH AX 
0454 1E 1527 PUSH OS 
C455 53 1528 PUSH BX 
C456 #800C0 z 4529 CALL COSEND 
0459 C3 15.30 =T 
oo 
C45A 8032970C00 R 1532 CNP BLF_COUNT-C 7CHECK IF ANYBODY NEEDS INITING 
C45F 7415 1533 RBFS 7IF NO CHANNELS NEED INITING 
1534 
1535 INIT A CHANNEL WHICH IS SHORT A BUFFER 
1536 
C461 8A16960C R 1537 MCV DL,BUF_FIRST 
C465 £30902 1538 CALL SETUPCHANNEL *SET UP THE DMA AND DATA STRUCTUPES — 
1539 
G468 FEOE97OC R 1540 C 3UF_COUNT 7ONE LESS CHANNEL TO INIT 
046C FE06960C R 1541 INC BUF_FIRST STEP TO NEXT CHANNEL 
C470 &032950C04 R 1542 CMP BUF_FIRST-4 7CHECK IF WRAP AROUND 
C475: 7505 15435"; e ReF2 7IF NOT WRAP AROUND 
0477 €606960CC1 R 1544 MOV BUF_FIRST>+1 7WRAP AROUND 
Q47C 9D 1545 PF 
C47D FFE7 1546 MP DI 7RETURN 
15.47 
1548 LINK INTO FREE BUFFER POOL 
1549 
C47F A18900 R 4550 MOV AX,FREE_HEAD 7SET UP LINK 
0482 8907 1534 MOV CaX].LINK,AX 
0484 @91&28500 R 1552 MCV FREE _H=EAD,BX 7PUT AT HEAD 
C488 SD 1553 Pr 
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FCR TH 


INTERRUPT SERVICE ROUTINES 
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THROUGH RX3ISR ~ RECEIVE CHANNEL INTERRPUT SERVICE ROUTINES. 


SE THREE ROUTINES SERVICE THE RECEIVE COMPLETE INTERRUPTS 
E THRE RECEIVE DMA CHANNELS. 


SINCE THE INTERRUPTS FCR THE THREE CHANNELS MAY COME IN OUT OF 


ORDER DUE TO THE WAY INTERRUPTS ARE PIORITIZED, ALL THREE ARE 
VECTORED TG<RXISR, WHICH VECTORS TO THE APPROPRIATE ROUTINE. 
WHEN EACH ROUTINE COMPLETES ITS PROCESSING, IT CHECKS IF THE 
INTERRUPT FOR THE NEXT CHANNEL IS ASSERTED, AND IF SO, JUMPS 
DIRECTLY TC THE NEXT ROUTINE. 
AFTER COMPLETION OF ALL NEEDED CHANNEL SERVICING, RXEXIT IS 
JUMPED TO TO COMPLETE INTERRUPT PROCESSING. 
PUBLIC RXISR 
PLUSH zS 
PUSH DS 
MOV DS/DGRP 
PUSH AX 
PUSH cx 
PUSH DX 
PUSH BX 
PLSH SI 
PUSH a 
IN AL, PICMASK *SAVE MASK 
PUSH AX 
JMP NEXT_CH. 
RXEXIT - EXIT CODE FOR RX SERVICE ROUTINES. 
NCTE: THIS ROUTINE GETS .CLEVER WITH THE PIC MASK. 


CMP 
JNZ 
MCV 


CALL 
POP 
OR 


IN 


ANOQ 
OUT 
MOV 
PUSH 
CALL 
POP 
PCr 
PCP 
PCP 


OON’T TOUCH PIC CODE IN OTHER RX SERVICE ROUTINES 
WITHOUT STUDYING THIS FIRST. 


BLUF_CCUNT-,3 7CHECK IF ALL CHANNELS NEEO RE-INITING 


RXE1 ;IF NOT 

DI,YOFFSET DGROUP:RSCERRS INCREMENT RESOURCE ERRORS CO 
BUMPCNT | 

BX *SET NEW INTERRUPT MASK 

BL,O7H 7CISABLE ALL RX CHANNELS 

AL, PICMASK *;NEXT CHANNEL IS CURRENT PIC MASK 
AL, BL ENABLE THE NEXT CHANNEL 
PICMASK,AL 

AX,OFFSET DGROUP:DLL_SEM1 sSIGNAL SEMAPHORE 

AX | 

COISIGNAL *START EXIT PROCESSING 

oI 7 

SI 

BX 

DX 
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LOC 03J Live SCURCE 


C4C1 59 1614 POP CX 
04C2 56 1615 Pos AX 
C4C3 1F 1516 POP DS 
04C4 07 1571.7 POP eS 
O04C5 CF 1678 TRET 

1619 


1620 SEJECT 
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LOC CBJ a SCURCG: 
1621 ? RXTISR - RECEIVE CHANNEL 1 INTERRUPT SERVICE ROUTINE 
1622 ; 
1423 ; OARAMETERS: 
1424 , NONE. 
1625 
1526 
C4C6 3060 1627 RX1ISK: MCV AL,SEOQI_PIC+O ,SELECTIVE EOI FOR THIS CHANNEL 
O4C8 E6FO 1628 OUT PICCMOD,AL 7SEND TO PIC 
C4CA £4C3 142¢ IN AL,/CH1TWC FREAD WORD COUNT OF RECEIVED PACKET IN CX 
C4CC &ACB 163¢ MCY CL-AL 
C4C& £4C3 1631 IN AL,CH1IWC 
C400 8AES 1632 MCV CH, AL 
1633 
1534 , CHECK FOR ERROR * 
1635 
0402 2450 1536 IN AL,PICA 7READ STATUS 
C404 2430 1637 AND AL,30H 7CHECK RECEIVE STATUS BITS 
0406 7409 1638 JZ RX10 7LF STATUS OK 
0408 8402 . 163% MCV AH,CH2_D0NE 7NEXT CHANNEL FOLLOWING THIS CNE 
C4DA ESBA702 1640 CALL CHECK_STATUS *7KICK APPROPRIATE COUNTERS 
0409D QACO 1441 OR AL?VAL 7CHECK RETURNED VALUE 
C4DF 7406 1642 32 RX11 7LF ERROR 
1642 
1644 ; CHECK FOR RUNT PACKET 
1645 
C4=E1 @1F9AE05 1646 RX10: CMP CX,MAX_PACKET_LEN-“MIN_PACKET_LEN ;-fCHECK FOR RUNT PACKET 
C4E5 7eE0B 1647 Jia RX12 7,iF NOT A RUNT 
1645 
1649 7 REINITIALIZE AFTER ERROR 
1659 
Q4E7 881E3FOO R 16514 RX11: MCY BX,RX1_3UF 7LOAD BUFFER CONTROL BLOCK POINTER 
O4EB 8201 1652 MCV DL,1 7CHANNEL 1 . 
C420 E87702 1653 CALL RESET_CHANNEL 7RESET DMA CONTROLLER 
O4F0 ¢€848 1654 JMP SHORT R15 700 END PROCESSING 
: 1655 
1656 ? PACKET OK 
16357 
C4F2 38812£890C R 1658 RX12: MCV 3X,FREE_HEAD READ NEXT AVAILABLE BUFFER 
C4F45 CBDB 14655 OR 8X,3X *CHECK THAT A BUFFER IS THERE 
Q4F8 tole 1640 JNZ RX13 7LF A BUFFER IS AVAILABLE 
1661 
1562 ; NC B3UFFER TO REINIT WITH 
1663 | 
O4FA FE06970C R 1664 INC BUF_COUNT 7MARK THAT AN ADDITIONAL CHANNEL NEEDS INITING 
O4FE 603E970C01 R 1665 CMP BLE_CCUNT~-1 7CHECK IF OTHER CHANNELS ALREADY NEED INITING 
C503 7520 1666 JNZ RX14 ZIF OTHERS, SKIP SETTING BUF_FIRST 
C505 C606960C01 R 1667 - MCV BUF_FIRST-1 7MARK CHANNEL 1 AS FIRST CHANNEL TO INIT 
O50A E319 1568 SMP SHORT RX14 
1669 
1670 ; SET UP WITH NEW BUFFER 
1571 
C50C 884704 1672 RX13: MCV AX, CBX1].BUF ,CUTPLT STARTING ADDRESS 
C50F E6C2 1672 OLT CHTADOR, AL 
C511 8AC4 1674 MOV AL, AY 
05135 £é6C2 - “Leys OUT CHITADOR-AL 


&086/8087/80E8 MACRO 


OoOnomn oa 


O3J 


BSF105 
F6C3 
BAC4 
e603 
F602 


8307 

A38900 R 
B71E8FOC R 
E94FQ2 

8a568D0C R 
E971C 

C707000C 
891E8O0C R 


BOFOD 

E6F1 

BOOC 

E6FO 

E4FO 

3431 

7409 
C706600C5105 
EX4SEFF 


ASSEMBLER 


iat} 


LINE 


1676 
1677 
1676 
1475 
1620 
16&1 
16382 
1683 
1624 
16é5 
16&¢é 
1627 
16&é 
1689 
Poo 
1691 
16S2 
1593 
1694 
1655 
1696 
1697 
Lore 
1699 
1700 
17C1 
17C2 
1703 
1704 
1705 


BEL 


SRS CeLys 


SCURCS 


RX14: 


MCV 
OLT 
MCV 
OUT 
OUT 


INTERRUPT SERVICE ROUTINES . 09/01/80 PAGE 


AX/MAX_PACKET_LENtJUNK_8YTES -OUTPUT LENGTH TC DMA 
CHIWC,AL 

AL,AH 

CHIWC7AL 

SET_RXAV17 AL SIGNAL CHANNEL AVAILABLE 


BO LINKED LIST: HOUSEKEEPING 


MCV 
HOV 
XCHG 
MCV 
MCV 
MCV 
MOV 
MCV 


AX, CBX].LINK ZUNLINK NEW ELEMENT FROM FREE LIST 
FREE_HEAD,AX 
BX,/RX1_3UF VE NEW BUFFER CB POINTER AND READ OLD 


7sA 
PBX].wWC,CX *7SAVE WORD COUNT 
ST,-RCVD_TAIL LINK OLD PACKET INTO RCVE QUEUE 
CSIJ.LINK,8X 
CaxJ.LINk,Q 
RCVO_TAIL,38% 


CHECK FOR NEXT CHANNEL COMPLETE 


MCV 
OUT 
MOV 
OUT 
IN 

XOR 
JZ 

MCV 
JMP 


AL/NOT CH2_DONE ZOPEN MASK FOR CHANNEL 2 GNLY 
PICMASK,AL 
AL,POLL_PiC 
PICCMD,AL 
AL,PICOATA 


,POLL TO SEE IF CHANNEL 2 BONE 


AL, 81H TEST IF INTERRUPT 1 ASSERTED 
RX2ISR 7IF CHANNEL 2 COMPLETE 
NEXT_CH/OFFSET CGROUP:RX2ISR sNEXT VECTOR 
RXEXIT EXIT PROCESSING 


36 


2036/89087/3085 MACRO ASSEMBLER OLL = RECEIVe INTERRUPT SERVICE ROUTINES 09/01/80 PAGE 


LOC O8J . LINE SOURCE 

176 33 RX2ISR - RECZIVE CHANNEL 2 INTERRUPT SERVICE ROUTINE 

1707 ; 

1702 ; PARAMETERS: 

17C9 ; NONE. 

1710 

1711 
C551 8061 1712 RX2ISR: MOV AL,/SEOI_PICt+1 sSELECTIVE EOI FOR THIS CHANNEL 
C553 E6FO ATS OUT PICCND,AL *SEND TO PIC 
C555 &4C5 1714 IN AL,-CH2WC 7READ WORD COUNT OF RECEIVED PACKET IN CX 
C557 &AC8 A715 MCV CL, AL 
C559 E4C5 1716 IN AL, CH2WC 
C558 8AE8 ssa MCV CH, AL 

1718 

1719 ; CHECK FOR ERRORS 

| 1720 : 

C55D £4é£0 1721 IN AL,PIOA 7READ STATUS 
C55F 2436 1722 AND AL,30H CHECK RECEIVE STATUS BITS 
0561 7409 1723 Jz RX20 ;IF STATUS OK 
0563 B404 1724 MCV AH,CH3_DONE NEXT CHANNEL FOLLOWING THIS ONE 
C565 2a81c02 1725 Cab CHECK_STATUS KICK APPROPRIATE COUNTERS 
C568 OACO 1726 OR AL? AL 7CHECK RETURNED VALUE 
GC56A 7406 1727 Jz RX21 7ERROR ON THIS PACKET 

1728 

1729 ; CHECK FOR RUNT PACKET 

173¢ 
C56C 81F9AEOS 1731 RX20: CMP CX/MAX_PACKET_LEN“MIN_PACKET_LEN s CHECK FOR RUNT PACKET 
0570 7208 1732 JLE RX22 7IF NOTA RUNT 

1733 | 

1734 ; REINITIALIZ= AFTER ERROR 

1735 
C572 &81£910C R 1736 RX21: MOV BX,/RX2_BUF 7LOAD BUFFER CONTROL BLOCK POINTER 
C576 B202 1737 MCV DL,2 7CHANNEL 2 
0573 &8=caol 17368 CALE RESET CHANNEL RESET DMA CONTROLLER 
0573 EB48 1729 JMP SHORT RX25 7DO0 END PROCESSING., 

1740 ) . , 

pe ; OACK=T OK 

1742 
GC57D &81E890C R 1743 RX22: MCV 3X, FREE_HEAD 7READ NEXT AVAILABLE BUFFER 
0581 0O8DB 1744 OR BX ,BX *CHECK THAT A BUFFER IS THERE 
0583 7512 1745 JNZ RX23 7IF A BUFFER IS AVAILABLE 

1746 

1747 ; NC BUFFER TO R=INIT WITH 

1742 | 
Q585 FEO6S70C R 1745 IKC SUF_COUNT *MARK THAT AN ADDITIONAL CHANNEL NEEDS INITING 
C589 &03&970001 R 1750 CMP 3UF_COUNT>1 7CHECK IF OTHER CHANNELS ALREADY NEED INITING 
C58— 7520 4751 JNZ RX24 7IF OTHERS, SKIP SETTING 8UF_FIRST 
C590 Cé06960CC2 R 17527 MCV BUF_FIRST,2 MARK CHANNEL 2 AS FIRST CHANNEL TG INIT 
C595 €3819 1753 JMP SHORT RX24 

1734 

1755 ; SET UP WITH NEW BUFFER 

1756 
0597 &84704 Ae OT RX23: MCV AX,CBX1.BUF 7OUTPUT STARTING ADDRESS 
C59A ESCS 1758 OUT CH2ZADOR-AL 
C59C §8AC4 1753 MGV AL, AH 
C59E £6C4 17406 OUT CHZ2ADDR,AL 


8086/8&087/80E8 


LOC 


C5A0 
C5A3 
O5A5 
CSA? 
CSA9 


C5AB 
Q5AD 
0580 
C5384 
O5B7 
0333 
C530 
05C1 


O5¢5 
C5C7 
O5C9 
C5c8 
G5CD 
C3CF 
0501 
0305 
Goo? 


OBJ 


83F105 
E6C5 
EAC4 
ao Op) 
E603 


8307 
A38900 
8712910C 
B94F02 
68366900 
B9I1C 
C707CQ0C 
S91ESD0C 


BOFB 

EOF 1 

BOCGc 

ES6FO 

E4FO 

3482 

(409 
C7066D0COC05 
EVCSFE 


8) 


MACRO ASSEMBLER 


SCURCE 


9) 
>< 
m 
I~ 


Se JECT 


INTERRUPT SERVICE ROUTINES 09/01/80 PAGE 38 


AX,/MAX_PACKET_LENtJUNK_BYTES OUTPUT LENGTH TO OMA 
CH2WC,AL 

AL, AH 

CH2WC,AL 

SETLRXAV2- AL 7SIGNAL CHANNEL AVATLABLE 


DO LINKED LIST HOUSEKEEPING 


MCV 
MCV 
XCHG 
MCV 
MCV 
MCV 
MOV 
MOV 


AX,C3X].LINK 7UNLINK NEW ELEMENT FROM FREE LIST 


FREE_LHEAOD,AX 

BX/RX2_ BUF 7SAVE NEW BUFFER CB POINTER AND READ OLD 
CBXJ.wC,CX “7 SAVE WORE COUNT 

ST,RCVO_TAIL LINK OLD PACKET INTO RCVO QUEUE 


CSIJ..LINK,3X 
CBXJ.LINK,O 
RCVO_TAIL,BX 


CHECK FOR NEXT CHANNEL COMPLETE 


MOV 


AL,NOT CH3_DONE OPEN MASK FOR CHANNEL 3 ONLY 


PICMASK,AL 

AL,/POLL_PIC ,POLL TO SEE IF CHANNEL 3 DONE 
PICCMD,AL 

AL,PICDATA 

AL, 82H 7TEST IF INTERRUPT 3 ASSERTED 
RX3ISR 7IF CHANNEL 3 COMPLETE 
NEXT_CH,/OFFSET CGROUP:RX3ISR -,NEXT VECTOR 
RXEXIT ,EXIT PROCESSING 


G€086/8087/8088 MACRO ASSEMBLER Vik = RECEIVES INTERRUPT SERVICE ROUTINES 09/01/80 PAGE 39 


LCC OBY LINE SCURCE 
1791 oo RX3ISR - RECEIVE CHANNEL 3 INTERRUPT SERVICE ROUTINE 
1792 : | 7 
1793 ; PARAMETERS: 
1794 ; NONE. 
1795 
1796 | 
C5DC 3062 1797 RX3ISR: MOV AL, SEOI_PIC+2 SELECTIVE EOI FOR THIS CHANNEL 
C5DE E6FO 1798 OUT PICCMD-AL 7SEND TO PIC 
C550 £4C7 1799 IN AL, CH3WC ZREAD WORCD COUNT OF RECEIVED PACKET IN CX 
C5E2 8ACcé 18CG MCV CL,AL 
C5E4 £4C7 1801 TN AL, CH3WC 
C556 &AzB 13C2 MOV CH, AL 
1363 | 
1804 ; CHECK FOR ERRORS 
1805 
C5E8 €4=0 18Cé TN AL, PIOA READ STATUS 
C5EA 2430 1807 AND AL, 30H 7CHECK RECEIVE STATUS BITS 
Q5=£C 7409 1308 Jz 2X30 7IF STATUS OK 
O5SEE 8401 1809 MCV AH,CH1_DONE ;NEXT CHANNEL FOLLOWING THIS CNE 
GC5FO £89101 1310 CALL CHECK_STATUS 7KICK APPROPRIATE COUNTERS 
C5F3 OACO 1811 OR AL/AL 7CHECK RETURNED VALUE 
CSF5 7406 1812 JZ. RX31 7IF ERROR ON THIS PACKET 
1813 | 
13814 ; CHECK FOR RUNT PACKET 
1315 
O5F7 &1F9AEOS 1816 RX30: CMP CX,/MAX_PACKET_LEN-MIN_PACKET_LEN  ZCHECK FOR RUNT PACKET 
O5FB 7208 1817 JLE RX32 ;IF NOT A RUNT 
13812 
1819 ; REINITIALIZE AFTER ERROR 
1320 
O5FO 8B1£930C Rs 1821 RX31: MCV BX,/RX3_3UF ;LOAD BUFFER CONTROL BLOCK POINTER 
C601 8203 1&22 MCV DL,3 | 7CHANNEL 3 
C603 &86101 1323 CALL RESET_CHANNEL 7RESET DMA CONTROLLER 
0606 £348 1824 JMP SHORT RX35 700 END PROCESSING 
1825 
- 1826 ; PACKET OK 
1827 
C608 881E890C R 1826 RX32: MCV 3X,FREE_HEAD ;READ NEXT AVAILABLE BUFFER 
Cé0C O8DB 1829 OR BX,BX CHECK THAT A 3UFFER IS THERE 
Cé0E 7512 183C JNZ RX33 ZIFF A BUFFER IS AVAILABLE 
1531 
1832 ; NC SUFFER TO REINIT WITH 
1333 
C610 FED6970C OR 1834 INC BUF_COUNT 7MARK THAT AN ADDITIONAL CHANNEL NEEDS INITING 
Cé14 8032970001 R 13825 CMP BUF_COUNT-1 7CHECK IF OTHER CHANNELS ALREADY NEED INITING 
C619 7520 1836 JNZ RX34 JIE OTHERS, SKIP SETTING BUF_FIRST 
0618 ¢€506960003 R 1837 MCV 3LUF_FIRST-3 ©  FMARK CHANNEL 3 AS FIRST CHANNEL TCG INIT 
C420 £819 1338 JMP SHORT RX34 
1339 
1340 ; SET UP WITH NEW BUFFER 
1341 | 
0622 884704 1842 RX33: MCV AX, C8X1.BUF FOUTPUT STARTING ADDRESS 
C625 E6C6 1843 OUT CH3ADCR-AL 
0627 8AC4 1844 MCV AL, AH 
0629 26C6 1345 OUT CHZADDR-AL 


2086/8037/8088 MACRO ASSEMBLER DLL. = RECEIVE INTERRUPT SERVICE ROUTINES | 09/01/80 PAGE 40 


LOC OBJ LINE SCURC= 
0428 88F105 1846 MCV AX,MAX_PACKET_LENtJUNK_BYTES OUTPUT LENGTH TO OMA 
G62E E6C7 1847 OUT CH3WC7AL 
C630 8AC4 13423 MCV AL,AH 
0632 =6C7 12849 OUT CHZWC-AL 
0634 E604 1850 OUT SET_RXAV3Z, AL 7SIGNAL CHANNEL AVAILABLE 

18514 

1852 ; DC LINKED LIST HOUSEKEEPING 

1353 
C636 83807 1554 MCY AX, C8XJ.LINK 7UNLINK NEW ELEMENT FROM FREE LIST 
C638 A338900 R 1355 MCV FREE_HEAD,AX 
C463B 871E930C R 1856 RX34; XCHG BX,RX3_ BUF 7SAVE NEW BUFFER CB POINTER AND READ OLD 
C63F 894F02 1857 MCV CaX].WC,CX 7SAVE WORC COUNT : 
Cé42 83368D0C R. 1352 MCV SI/RCVD_TAIL 7LINK OLD PACKET INTO RCVCD QUEUE 
C646 $91C 1859 MOV CSIJ.-LINK,BX 
C648 C7070000 1360 MCV CBXI.LINK,O 
C6é4C 891E8D0C R 1361 MCV RCVD_TAIL, 8X | 

1862 | 

1363 ; CHECK FOR NEXT CHANNEL COMPLETE 

1864 | 
Cé&50 BOFE 465 RX35: ACV AL,NOT CH1_DONE OPEN MASK FOR CHANNEL 1 ONLY 
0652 E6F1 1866 OUT PICMASK?AL 
C654 BOOC 1867 MCV AL,POLL_PIC POLL TO SEE IF CHANNEL 1 OONE 
Cé56 E6FO 1868 OUT PICCMO,AL 
C658 E4FO 1869 IN AL, PICDATA 
O65A 2480 1370 XCR AL,8QH STEST IF INTERRUPT O ASSERTED 
C$5C 7409: 1877 ted RX26 7IF CHANNEL 1 COMPLETE 
C65E C7066D0CC604 R 18372 MCV NEXT_CH/OFFSET CGROUP:RX1ISR ZNEXT VECTOR 
Cé64 E9S38FE 1373 | JMP RXEXIT  « GEXIT PROCESSING ; 
C667 ESS5CFE 1874 RX36; JMP RX1ISR ;NEED LONG JUMP 

13875 

1376 

1377 

1878 


1879 SEJECT TITLE ©" BOLL = RECEIVE PACKET FORWARD PROCESS”) 


8086/8087/8088 MACRO ASSEMBLER OGL = REECE Ve PRCKET. FURWARD PROCESS 09/01/80 PAGE 


Loc OaJ LINE SOURCE 
1820 i? OLLRXF - PROCESS TO FORWARD RECEIVED PACKETS TO NETWORK LAYER. 
1881 ; 
13&2 ; THIS IS THE PROCESS WHICH MCVES RECEIVED PACKETS IN THE "RCVD" 
1883 ; TO RCVOMBX, AFTER DOING ADDRESS CHECKING ON MULTICAST PACKETS. 
1284 ; 
1885 ; GLOZALS MCDIFIED: RCVD_HEAD, RCVD_TAIL. 
1886 ; KACS OBJECTS USED: DLL_SEM1 CWAITSEM). 
1387 
1888 
1389 PUBLIC DLLRXF 
O65A FA 1299 RXF1: Clay 7THIS PART MUST BE INDIVISIBLE 
C66B 2807 1391. MCV AX, C3X].LINK 7UNLINK BCB FROM QUEUE 
C660 A33800 R 1392 MCV RCVD_HEAD,AX 
0670 QaCcO 1393 OR AX, AX ;CHECK IF AT END CF QUEUE 
0672 7506 1394 JN2 RXF2 7IF NOT AT END 
C674 C706&DOC8B00 R 1395 MOV RCVD_TAIL-OFFSET DGROUP:RCVD_HEAD ZREINIT QUELE 
1896 
C674 A18700 R 1897 RXF2: MOV AX,BCB_HEAD LINK BCB INTO FREE LIST 
Cé6é7D &907 1332 HCV CBXI.,LINK-AX 
O&67F &91E879C R 189¢ MCV  §8CB_HEAD,8X 
1900 . 
C683 887704 1901 MCV St,C3X].3UF GET ACTUAL BUFFER ADORESS 
C686 B&EAQS 1902 MOV AX/MAX_PACKET_LEN 7 COMPUTE PACKET LENGTH 
0689 284702 19063 SUB AX, CBXI.WC 7SUSTRACT DMA FINAL WORD COUNT 
Cé8C FS 1904 STI 7CAN TURN INTERRUPTS BACK ON HERE 
1905 
068D 81C6FS3FF R 1906 ACD SI,/OFFSET DGROUP:BUFFER_START“VAL_DL_DEST+1 WANT ADDRESS IN CGROUP 
C691 894464 A9CT _ MOV CSIT.SEG_LENGTH/AX *STORE LENGTH IN SEGMENT 
1908 
C694 F6440601 19C9 TEST BYTE PTR CSIJ.DL_DEST/MCFLAG TEST MC FLAG 
C698 7410 1910 JZ RXF3 7IF SINGLE ADDRESS 
CEA 56 1911 PLSH me *SAVE POINTER 
0698 8D5C06 1912 LEA. 8X,CSI].DL_DEST 
O69E ESASFA 1913 CALL CHECKMCIO CHECK FOR MULTICAST ID. 
C6A1 CAD6980C R 1914 OR AL, ALLMC CHECK "ALL MULTICAST" FLAG 
C6A5 SE 1915 Pop SI 
CéA6 COC8S 1916 ROR AL +1 7TEST RESULT 
CéA8 732F 1917 JNC RXF 7IF NCT VALID MCIC 
1918 
CSAA 884412 1919 RXE3: MCV AX,CSI].O0L_TYPE 7LOAD DESTINATION TYPE 
Cé6AD BFCOCO R 192C MOV DIVOFFS=T DGROUP:TYPET sSEARCH TYPE LIST 
0680 880ECcz20C R 1921 MOV CX,/TYPEL 
0654 833000 1922 RXF3A: CMP WCRD PTR CDIJ,-0 7 SEE IF TYPE IS ZERO 
C487 7408 1923 Je RXF38 > IF IS ZERO, THEN TAKE IT 
0689 3905 1924 CMP WORD PTR CDII-AX 
06383 7407 1925 JE RXF38 + TYPE MATCHES 
CéBD 47 1926 INC DI 
CéBE 47 1927 INC DI 
O63F 49 1928 DEC CX y 
C6CO 75F2 1929 JNZ RXF3A 
06c2 £815 193C Jup SHORT RXF4 + NOT IN LISTT 
1931 | 
CS5C4 8384510 1932 RXF35: WCV AX, COLI+(TYPEM-TYPET) SEND TO OUTPUT MAIL80X 
CéC7 50 1932 PUSH AX 
C6C3 12 1934 PUSH DS 


2086/8087/808§8 MACRO ASSEMSLER DLL Ff RECelVe PACKET PORWARD PROCESS | 09/01/80 PAGE 


LOC O3J Lite SCURC: 
C6éC9 56 19355 PUSH SI 
G6CA £80000 2 136 CALL CESEND 
. eC 

O6CD FFO6520C R T2S8 INC TOTAL_RECEIVED sf INCREMENT TOTAL COUNTER 
C601 750A 1935 JNZ RXFS5 iF NO OVERFLOW 
C603 FFO65400 R 1940 ENC TCTALLRECELIVEDt2 -FINCREMENT HIGH PART 
C607 E804 1941 JMP SHORT RXF5 

Voae 
C6D9 56 13943 RXF4: PUSH Si RETURN BUFFER 
Q6D0A EE52FD 1944 CALL DLLRXRETBUF 

1945 
GC60D €812830C R 1946 RXF5: MCV BX,RCVD_LHEAD *7READ NEXT PACKET TO FORWARD 
O6e1 O8B8DB 1947 1 OR BX 3X ,TEST FOR NONE TO FORWARD 
C6E3 7585 1948 . JNZ RXF1 7IF SCME TC FORWARD 

1949 
O6E5 1950 DLLRXF: 
Coes 533000 R 195-1 MCV AX, OFFSET DGROUP:ODLL_SEM1 ZWAIT FCR RECEIVE CCMPLETE 
CGES: 5.0 1952 PUSH RX 
UGE? £80000 & oo CALL CQOWAITSEM 
O6eC ‘eacr 1954 JMP SHORT RXFS5 r7ENTER LOOP 

1955 

1955 

To57 

1958 
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€086/8087/8088 


LOC 


O3J 


9D 


81070100 
ae 
834C04 
B3EA05 
23C1 
894702 
807406 
F3 

A4 


9C 

FA 
€8368000 
E91C 
c7o7c00c 
69128000 
5D 
B33000 
50 
E80000 


MACRO ASSEMBLER 


Th 


8) 


Dik. = RECe Lys 


SCURCs 


“eo 


we We NO Ne Ne Nae Ne ‘ee Ws We 


SERVICE SUBROUTINES 


09/01/80 PAGE 


LCOP_PACK=ET ~- LOOP PACKET TO RECEIVE SIDE. 


THIS RCUTINE COPIES THE PACKET PASSED TO IT INTO 
A RECEIVE PACKET 3UFFER- THEN FORWARDS THE COPY 
AS A NORMAL RECEIVED PACKET. THE ORIGINAL PACKET 
REMAINS UNCHANGED. 


PARAMETERS 


3X 


LCOP_PACKET: 


LCP1: 


LCP2: 


OFFSET OF PACKET BUFFER CONTAINING 
THE PACKET TO BE LOOPED BACK. 


BX *SAVE PACKET POINTER 
rCRITICAL REGION 


READ NEXT AVAILABLE BUFFER 
*CHECK THAT A BUFFER IS THERE 
,IF NO BUFFER 

y,UNLINK FROM FREE LIST 


BX,/FREE_HEAD 
3X7 BX 

LOP1 

AX, C3X].LINK 
FREZ_HEAD,AX 


SHCRT LOP2 


BUF_LOCP FLAG THAT ANOTHER LOOPBACK BUFFER IS NEEDED 
AX,OFFSET OGRCUP:DLL_MBX2 WAIT AT MAILBOX FOR BUFFER 

AX 

CGRECELVE 


eSET UP FCR COPY 
JS 
ES 
Or,C8xX].BUF 
DI-OFFSET DGROUP:BUFFER_START+1 7ADDRESS IN DOGROUP 
SI 7SOURCE BUFFER ADDRESS 
CX,CSII].S=EG_LENGTH 
AX/MAX_PACKET_LEN -COMPUTE VALUE FOR "WC" 
AX,CX 
Ce8xa.we,AXx 
SI,CSI].D0L_DEST 
MCVS8 


sPUT LENGTH INTO BUFFER CONTROL 8LCCK 


7CO THE COPY 


CRITICAL REGION 
ST,/RCVO_TAIL SLINK INTO OUTPUT LIST 
PSIT.LINK,BX 
raxd.LINK,O 
RCVD_TAIL/ BX 


AX,OFFSET OGROUP:SDLL_SEM1 sSIGNAL THAT A PACKET IS AVATLABLE 
AX 
CQOSIGNAL 


43 


BO86/ENS7/50E8 


LOC O38J 


0740 C3 


C741 
C741 
0743 
U745 
0747 
C743 
C74E 
O74F 
C751 


32F6 
&BFe2 
C12 
é1c2coo0c 
&34704 


1 
rH 


mon 

nip 
Oo 
I~ 


O752 
0753 
C756 
C757 
O759 


nN 
— 
a) 
wi 


yt > rn OO nM 
oO 
—~ 


momo ph 


C75A 8A0100 
G75D C3D6 
Oi sr Ee 


C740 D1E6 
O762 899C8DOC 
Cre6.C3: 


C767 
O767 
C76éc 
Q7S5E 
C772 
C/7é 
C773 
0770 
C782 


8032970C00 
7403 
SA146950C 
FEO06960C 
8032960004 
75C4 
C606960C0CT 
ep 


MHACKO ASSEMSBL 


AI WS A 


ER 


Olt. = RECEIVE SERVICE SUBROUTINES 
SOURCE 
RET 
SETUPCHANNEL - S2T UP OM 
; 
; PARAMETERS: 
; (DL) = CHANNEL NUMBER 
; (BX) = POINTER TO BUF 
: 
; USES: AX,LX,STI 
SETUPCHANNEL: 
XGR OH, DH 
MCV SI,DX 
SHL DX-1 
ADO DX,CH1ADDR-2 
NOV aX,£8X1.BUF wit 
OUT DX7 AL ah 
MOV AL, AHQ- 
OUT DX, AL 
INC DX 
HCY AX,MAX_PACKET_LE 
OUT DX AL 
HCY AL? AH 
OUT DX7AL 
MCV DX,/SET_RXAV1~1 
ACD DXy ST 
“Olt DX-AL 
SHL SI 
MCV X1_BUFLDCSI-21,3X 
RET 
ae RESET_CHANNEL - RETURN 8 


RESET_CHANNEL: 


CMF 
JZ 

MOV 
INC 
CMP 
JNZ 
MCV 
JMP 


BUF_COUNT-O 
SETUPCHANNEL 
DL,/BUF_FIRST 
BUF_FIRST 
3UF_FIRST,4 
SETUPCHANNEL 


-BUF_LFIRST-+1 


SHCRT SETUPCHANN 


C9/01/80 PAGE 


A FOR CHANNEL AND SIGNAL AVAILABLE. 


FER CONTROL SLOCK, 


,7FILL DH WITH ZEROS 
7SAVE CHANNEL NUMBER IN SI 
COMPUTE CHnADDR PORT NUMBER 


tno 
7STEP TO CHnwe 


Nt JUNK_8YTES 7LOAD LENGTH 
ea 2 


FEOAD STARTING ADDRES STARTING ADDRESS 


/esCOMPUTE RX AVAIL PORT NUMBER 


7SIGNAL CHANNEL AVAILABLE 
ta et 


INITIALIZE RXn_BUF 


UFFER TO CHANNEL AFTER ERROR 


CHECK IF OTHER CHANNELS NEED INITING 

7SET UP CHANNEL IF ONLY ONE NEEDING INITING 
,CTHERWISE, INIT THE FIRST ONE WHICH NEEDS BUF 
7STEP TO NEXT 

7CHECK FOR WRAP~AROUND 

,EXIT IF NOT WRAP-AROUND 

7WRAP AROUND 

EL 
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LOC 


CBJ 


6 ADS 
BOOS 
Soro 
E4FQ 
E404 
7521 


F6C310 
7406 


2F5800 R 


EBEBFS 
F6C320 
740C 
E1FIAEOS 


MACRO ASSEMBLER 


EIN: 


2069 
2079 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2072 
2079 
20&0 
2081 
2022 
2983 
2084 
2085 
2086 
2087 
2082 
2089 
2090 
2051 
2092 
2053 
2094 
2095 
2096 
2097 
2098 
2099 
2160 
2101 
2102 
2103 
2104 
2105 
21064 
2107 
2104 


PO po ro PO PS PO PS PS TY PU 
mr por — 2 A? —- 
ia Po | Oso Ws Oo uw & Ul 


we eh ek ek ek eh ek 
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APPLIES TO THIS CHANNEL, INCREMENT APPROPRIATE 


ERROR COUNTERS AND CLEAR ERROR INDICATIONS. 


DEL = RECEIVE SERVICE SUBROUTINES 
SCURCE 
? CHECK STATUS = EF ERROR 
; 
, 
; PARAMETERS: 
; AL = STATUS BYTE. 
; AH = INTERRUPT CHECK 
; CX = WORD CCUNT FROM 
7 
; RETURNS 
; AL = TRUE => ERROR NO 
, AL = FALSE => OROP TH 
; CX = WORD CCUNT FROM 


CHECK_STATUS: 


BL, AL 


MCV 
MOV AL,/READ_IRR 
OUT PICCHD,AL 
IN AL,PICDATA 
FEST AL, AH 
JNZ CHK3 
TeST 8L,10H 
Jz CHK1 
MCV DI,OFFSET DGROUP 
CALL BLMPCNT 
CHK1: TEST BL,20H 
JZ CHK 2 
CMP CX/MAX_PACKET_LE 
JG CHK2 
MOV NI,OFFSET DGROUP 
CALL BUMPCNT 
CHk2: OUT RESETLERROR,AL 
XCR AL, AL 
RET 
ChkK3: MCV AL,OFFH 
RET 
; 
, 
, defs for pucenf uhen real medu 
y 
7 public coedevicetest,caqr 
rceqdevicetest: 
, xor ax sax 
r ret 
7cqramtest: 
? xor axes ax 
r ret 
rctjumptable clu 8) 


MASK FOR THE NEXT CHANNEL. 
DMA. 


T FOR THIS PACKET. 
IS PACKET. 
OMA, 


*SAVE FLAGS 

CHECK IF NEXT CHANNEL COMPLETE, 

+ IF SO- ERROR FLAGS DO NOT APPLY TO THIS ONE 
*CHECK WITH THE MASK WHICH WAS PASSED 

7IF NEXT CHANNEL COMPLETE 


*CHECK LENGTH ERROR 
IF NC LENGTH. ERRCR 
:FRMERRS FINCREMENT COUNTER 
;CHECK CRC ERROR 

7IF NO CRC ERROR 

N-MIN_PACKET_LEN fCHECK FOR RUNT PACKET 
3DO0 NOT INCREMENT COUNTER FOR RUNT 
>CRCERRS ZINCREMENT COUNTER 


yRESET ERROR FLAGS 
*RETURN FALSE 
sRETURN TRUE 


le is not present 


amtest,ctjumptable 


45 


2086/ 8087/8088 MACRO ASSEMBLER DLL  ReCEIVe SERVICS SUBROUTINES 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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